Changeset 5153


Ignore:
Timestamp:
12/15/03 17:35:05 (17 years ago)
Author:
piso
Message:

Constructor: support initArgs list correctly.

File:
1 edited

Legend:

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

    r4560 r5153  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: UndefinedFunction.java,v 1.5 2003-10-28 17:16:45 piso Exp $
     5 * $Id: UndefinedFunction.java,v 1.6 2003-12-15 17:35:05 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2727    public UndefinedFunction(LispObject obj) throws ConditionThrowable
    2828    {
    29         super(list2(Keyword.NAME, obj));
     29        super(obj instanceof Cons ? obj : list2(Keyword.NAME, obj));
    3030    }
    3131
Note: See TracChangeset for help on using the changeset viewer.