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

More work on macros

db4
James Cash 2008-06-01 00:52:47 -04:00
parent bf860c8529
commit 99e546ef65
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/lisp/lisp.factor
View File

@ -10,6 +10,7 @@ DEFER: convert-form
DEFER: funcall DEFER: funcall
DEFER: lookup-var DEFER: lookup-var
DEFER: lisp-macro? DEFER: lisp-macro?
DEFER: looku-macro
! Functions to convert s-exps to quotations ! Functions to convert s-exps to quotations
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -69,7 +70,7 @@ PRIVATE>
} case ; } case ;
: macro-expand ( s-exp -- quot ) : macro-expand ( s-exp -- quot )
; unclip-slice lookup-macro macro-call convert-form ;
: convert-list-form ( s-exp -- quot ) : convert-list-form ( s-exp -- quot )
dup first dup first