Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv6056/src/builtin
Modified Files:
preproc.wisp
Log Message:
Made the preprocessor auto-quasiquote vectors.
Index: preproc.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/preproc.wisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- preproc.wisp 4 Sep 2002 14:29:47 -0000 1.6
+++ preproc.wisp 7 Sep 2002 22:00:01 -0000 1.7
@@ -73,6 +73,12 @@
(else (raise 'preprocessing-error x))))
((or (number? x) (boolean? x) (char? x) (string? x))
`',x)
+ ((vector? x)
+ (expression (list 'quasiquote
+ (list->vector
+ (map (cut list 'unquote <>)
+ (vector->list x))))
+ legacy))
((cons? x)
(my verb (car x)
(my args (let (loop (l (cdr x)))
|
