steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor edits

db4
James Cash 2008-06-05 20:38:12 -04:00
parent 887b385250
commit 9a0484b3a5
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/lisp/lisp.factor
View File

@ -9,8 +9,8 @@ IN: lisp
DEFER: convert-form DEFER: convert-form
DEFER: funcall DEFER: funcall
DEFER: lookup-var DEFER: lookup-var
DEFER: lisp-macro?
DEFER: lookup-macro DEFER: lookup-macro
DEFER: lisp-macro?
DEFER: macro-expand DEFER: macro-expand
DEFER: define-lisp-macro DEFER: define-lisp-macro
@ -110,10 +110,9 @@ PRIVATE>
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
SYMBOL: lisp-env SYMBOL: lisp-env
ERROR: no-such-var variable-name ;
SYMBOL: macro-env SYMBOL: macro-env
ERROR: no-such-var variable-name ;
M: no-such-var summary drop "No such variable" ; M: no-such-var summary drop "No such variable" ;
: init-env ( -- ) : init-env ( -- )

2
extra/lists/lists.factor
View File

@ -8,7 +8,7 @@ IN: lists
MIXIN: list MIXIN: list
GENERIC: car ( cons -- car ) GENERIC: car ( cons -- car )
GENERIC: cdr ( cons -- cdr ) GENERIC: cdr ( cons -- cdr )
GENERIC: nil? ( cons -- ? ) GENERIC: nil? ( object -- ? )
TUPLE: cons car cdr ; TUPLE: cons car cdr ;