Changeset 4073


Ignore:
Timestamp:
09/26/03 16:54:25 (19 years ago)
Author:
piso
Message:

Constructor: record &environment variable.

File:
1 edited

Legend:

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

    r4037 r4073  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Closure.java,v 1.58 2003-09-23 18:17:02 piso Exp $
     5 * $Id: Closure.java,v 1.59 2003-09-26 16:54:25 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4949    private final boolean allowOtherKeys;
    5050    private Symbol restVar;
     51    private Symbol envVar;
    5152    private int arity;
    5253
     
    104105                                "&REST/&BODY must be followed by a variable"));
    105106                        }
     107                    } else if (obj == Symbol.AND_ENVIRONMENT) {
     108                        remaining = remaining.cdr();
     109                        envVar = (Symbol) remaining.car();
     110                        arity = -1; // FIXME
    106111                    } else if (obj == Symbol.AND_KEY) {
    107112                        state = STATE_KEYWORD;
Note: See TracChangeset for help on using the changeset viewer.