Changeset 4839


Ignore:
Timestamp:
11/19/03 16:17:32 (18 years ago)
Author:
piso
Message:

_let(): minor cleanup.

File:
1 edited

Legend:

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

    r4837 r4839  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: SpecialOperators.java,v 1.17 2003-11-19 14:59:58 piso Exp $
     5 * $Id: SpecialOperators.java,v 1.18 2003-11-19 16:17:32 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    8888            LispObject varList = checkList(args.car());
    8989            LispObject body = args.cdr();
    90             Environment ext = new Environment(env);
     90            // Process declarations.
    9191            LispObject specials = NIL;
    92             // Process declarations.
    9392            while (body != NIL) {
    9493                LispObject obj = body.car();
     
    110109                    break;
    111110            }
     111            Environment ext = new Environment(env);
    112112            Environment evalEnv = sequential ? ext : env;
    113113            while (varList != NIL) {
Note: See TracChangeset for help on using the changeset viewer.