Changeset 8657


Ignore:
Timestamp:
02/28/05 01:11:57 (16 years ago)
Author:
piso
Message:

execute(LispObject[] args): bind envVar if applicable.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Closure.java

    r8373 r8657  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Closure.java,v 1.90 2005-01-19 15:58:22 piso Exp $
     5 * $Id: Closure.java,v 1.91 2005-02-28 01:11:57 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    552552        args = processArgs(args, 0);
    553553        Debug.assertTrue(args.length == variables.length);
     554        if (envVar != null) {
     555            if (isSpecial(envVar))
     556                thread.bindSpecial(envVar, environment);
     557            else
     558                ext.bind(envVar, environment);
     559        }
    554560        for (int i = 0; i < variables.length; i++) {
    555561            Symbol sym = variables[i];
Note: See TracChangeset for help on using the changeset viewer.