Changeset 2071


Ignore:
Timestamp:
06/01/03 01:09:58 (19 years ago)
Author:
piso
Message:

eval(): Environment.lookupFunctional() now calls getSymbolFunction().

File:
1 edited

Legend:

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

    r2063 r2071  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.72 2003-05-31 20:22:04 piso Exp $
     5 * $Id: Lisp.java,v 1.73 2003-06-01 01:09:58 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    172172            if (first instanceof Symbol) {
    173173                LispObject fun = env.lookupFunctional(first);
    174                 if (fun == null) {
    175                     fun = first.getSymbolFunction();
    176                     if (fun == null)
    177                         throw new UndefinedFunctionError(first);
    178                 }
     174                if (fun == null)
     175                    throw new UndefinedFunctionError(first);
    179176                switch (fun.getType()) {
    180177                    case TYPE_SPECIAL_OPERATOR: {
Note: See TracChangeset for help on using the changeset viewer.