Changeset 3944


Ignore:
Timestamp:
09/21/03 01:40:57 (19 years ago)
Author:
piso
Message:

FUNCTION: pass LispObject directly to UndefinedFunction? constructor.

File:
1 edited

Legend:

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

    r3943 r3944  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.420 2003-09-21 01:39:01 piso Exp $
     5 * $Id: Primitives.java,v 1.421 2003-09-21 01:40:57 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    33573357            throws ConditionThrowable
    33583358        {
    3359             LispObject arg = args.car();
     3359            final LispObject arg = args.car();
    33603360            if (arg instanceof Symbol) {
    33613361                LispObject functional = env.lookupFunctional(arg);
     
    33733373                    return new Closure(arg.cadr(), arg.cddr(), env);
    33743374            }
    3375             throw new ConditionThrowable(new UndefinedFunction(String.valueOf(arg)));
     3375            throw new ConditionThrowable(new UndefinedFunction(arg));
    33763376        }
    33773377    };
Note: See TracChangeset for help on using the changeset viewer.