From b7f752e65f20d03f0d293380c0473b741bc997ed Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 18 Aug 1994 19:50:04 +0000
Subject: [PATCH] Changed unsyntaxing of constants to be more R4RS-ish.  Now
 the empty list and vectors are unsyntaxed as quotations.

---
 v7/src/runtime/unsyn.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/unsyn.scm b/v7/src/runtime/unsyn.scm
index c79f142a1..2b8adfcbc 100644
--- 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)))
-- 
2.25.1