Changed unsyntaxing of constants to be more R4RS-ish. Now the empty list

and vectors are unsyntaxed as quotations.

diff --git a/v7/src/runtime/unsyn.scm b/v7/src/runtime/unsyn.scm
index c79f142a15572bbc355aa47a3e23eae3ecccd6a1..2b8adfcbc36293abefa124026a205a6aa31ccfa1 100644 (file)
--- a/v7/src/runtime/unsyn.scm
+++ b/v7/src/runtime/unsyn.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unsyn.scm,v 14.16 1994/03/22 21:36:27 cph Exp $
+$Id: unsyn.scm,v 14.17 1994/08/18 19:50:04 adams Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -108,7 +108,11 @@ MIT in each case. |#
 ;;;; Unsyntax Quanta
 
 (define (unsyntax-constant object)
-  (cond ((or (pair? object) (symbol? object))
+  (cond (;; R4RS self-evaluating objects:
+        (or (boolean? object) (number? object) (char? object) (string? object))
+        object)
+       (;; R4RS quoted data (in addition to above)
+        (or (pair? object) (null? object) (symbol? object) (vector? object))
         `(QUOTE ,object))
        ((compiled-expression? object)
         (let ((scode (compiled-expression/scode object)))