Changeset 10224


Ignore:
Timestamp:
10/25/05 14:40:30 (16 years ago)
Author:
piso
Message:

public Function(Symbol symbol, String arglist, String docstring)

File:
1 edited

Legend:

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

    r10210 r10224  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Function.java,v 1.57 2005-10-23 18:44:50 piso Exp $
     5 * $Id: Function.java,v 1.58 2005-10-25 14:40:30 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4545            symbol.setBuiltInFunction(true);
    4646        setLambdaName(symbol);
     47        setLambdaList(new SimpleString(arglist));
     48    }
     49
     50    public Function(Symbol symbol, String arglist, String docstring)
     51    {
     52        symbol.setSymbolFunction(this);
     53        if (cold)
     54            symbol.setBuiltInFunction(true);
     55        setLambdaName(symbol);
     56        setLambdaList(new SimpleString(arglist));
     57        if (docstring != null) {
     58            try {
     59                symbol.setDocumentation(Symbol.FUNCTION,
     60                                        new SimpleString(docstring));
     61            }
     62            catch (ConditionThrowable t) {
     63                Debug.assertTrue(false);
     64            }
     65        }
    4766    }
    4867
Note: See TracChangeset for help on using the changeset viewer.