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

Implementing quasiquotes for lisp

db4
James Cash 2008-06-05 04:14:26 -04:00
parent 6e174706af
commit be4cc36e12
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/lisp/lisp.factor
View File

@ -16,7 +16,7 @@ DEFER: macro-call
! Functions to convert s-exps to quotations
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: convert-body ( cons -- quot )
[ ] [ convert-form compose ] lreduce ; inline
[ ] [ convert-form compose ] foldl ; inline
: convert-if ( cons -- quot )
cdr 3car [ convert-form ] tri@ '[ @ , , if ] ;
@ -64,7 +64,8 @@ PRIVATE>
"unquote not valid outside of quasiquote!" throw ;
: convert-quasiquoted ( cons -- newcons )
[ ] traverse ;
[ { [ dup list? ] [ car dup lisp-symbol? ] [ name>> "unquote" equal? dup ] } && nip ]
[ cadr ] traverse ;
: form-dispatch ( lisp-symbol -- quot )
name>>