lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

updating doc

This commit is contained in:
JeffBezanson 2009-05-31 22:27:37 +00:00
parent 91a6ae6490
commit 7e59898778
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
femtolisp/cvalues.c
View File

@ -630,7 +630,7 @@ value_t cvalue_typeof(value_t *args, u_int32_t nargs)
{ {
argcount("typeof", nargs, 1); argcount("typeof", nargs, 1);
switch(tag(args[0])) { switch(tag(args[0])) {
case TAG_CONS: return conssym; case TAG_CONS: return pairsym;
case TAG_NUM1: case TAG_NUM1:
case TAG_NUM: return fixnumsym; case TAG_NUM: return fixnumsym;
case TAG_SYM: return symbolsym; case TAG_SYM: return symbolsym;

4
femtolisp/flisp.c
View File

@ -98,7 +98,7 @@ value_t NIL, FL_T, FL_F, LAMBDA, QUOTE, IF, TRYCATCH;
value_t BACKQUOTE, COMMA, COMMAAT, COMMADOT, FUNCTION; value_t BACKQUOTE, COMMA, COMMAAT, COMMADOT, FUNCTION;
value_t IOError, ParseError, TypeError, ArgError, UnboundError, MemoryError; value_t IOError, ParseError, TypeError, ArgError, UnboundError, MemoryError;
value_t DivideError, BoundsError, Error, KeyError, EnumerationError; value_t DivideError, BoundsError, Error, KeyError, EnumerationError;
value_t conssym, symbolsym, fixnumsym, vectorsym, builtinsym, vu8sym; value_t pairsym, symbolsym, fixnumsym, vectorsym, builtinsym, vu8sym;
value_t definesym, defmacrosym, forsym, labelsym, printprettysym, setqsym; value_t definesym, defmacrosym, forsym, labelsym, printprettysym, setqsym;
value_t printwidthsym, printreadablysym; value_t printwidthsym, printreadablysym;
value_t tsym, Tsym, fsym, Fsym, booleansym, nullsym, evalsym; value_t tsym, Tsym, fsym, Fsym, booleansym, nullsym, evalsym;
@ -1541,7 +1541,7 @@ static void lisp_init(void)
DivideError = symbol("divide-error"); DivideError = symbol("divide-error");
EnumerationError = symbol("enumeration-error"); EnumerationError = symbol("enumeration-error");
Error = symbol("error"); Error = symbol("error");
conssym = symbol("cons"); pairsym = symbol("pair");
symbolsym = symbol("symbol"); symbolsym = symbol("symbol");
fixnumsym = symbol("fixnum"); fixnumsym = symbol("fixnum");
vectorsym = symbol("vector"); vectorsym = symbol("vector");