[Wisp-cvs] wisp/src/builtin preproc.wisp,1.6,1.7

[<di...@us...>]

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)))