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

View File

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