shithub: femtolisp

Info  •  Files  •  Log

updating doc

--- a/femtolisp/cvalues.c

+++ b/femtolisp/cvalues.c

@@ -630,7 +630,7 @@

 {

     argcount("typeof", nargs, 1);

     switch(tag(args[0])) {

-    case TAG_CONS: return conssym;

+    case TAG_CONS: return pairsym;

     case TAG_NUM1:

     case TAG_NUM:  return fixnumsym;

     case TAG_SYM:  return symbolsym;

--- a/femtolisp/flisp.c

+++ b/femtolisp/flisp.c

@@ -98,7 +98,7 @@

 value_t BACKQUOTE, COMMA, COMMAAT, COMMADOT, FUNCTION;

 value_t IOError, ParseError, TypeError, ArgError, UnboundError, MemoryError;

 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 printwidthsym, printreadablysym;

 value_t tsym, Tsym, fsym, Fsym, booleansym, nullsym, evalsym;

@@ -1541,7 +1541,7 @@

     DivideError = symbol("divide-error");

     EnumerationError = symbol("enumeration-error");

     Error = symbol("error");

-    conssym = symbol("cons");

+    pairsym = symbol("pair");

     symbolsym = symbol("symbol");

     fixnumsym = symbol("fixnum");

     vectorsym = symbol("vector");