Fix over-long lines.

diff --git a/v7/src/runtime/unsyn.scm b/v7/src/runtime/unsyn.scm
index 90bba4b5559548eae03dee264150b49209f025fd..ac79e4cfd7e8a2e698af5f66d655aa451935c42a 100644 (file)
--- a/v7/src/runtime/unsyn.scm
+++ b/v7/src/runtime/unsyn.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unsyn.scm,v 14.23 2001/12/20 18:03:24 cph Exp $
+$Id: unsyn.scm,v 14.24 2001/12/20 20:32:02 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -108,11 +108,17 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 ;;;; Unsyntax Quanta
 
 (define (unsyntax-constant object)
-  (cond (;; R4RS self-evaluating objects:
-        (or (boolean? object) (number? object) (char? object) (string? object))
+  (cond ((or (boolean? object)
+            (number? object)
+            (char? object)
+            (string? object))
+        ;; R4RS self-evaluating objects:
         object)
-       (;; R4RS quoted data (in addition to above)
-        (or (pair? object) (null? object) (symbol? object) (vector? object))
+       ((or (pair? object)
+            (null? object)
+            (symbol? object)
+            (vector? object))
+        ;; R4RS quoted data (in addition to above)
         `(QUOTE ,object))
        ((compiled-expression? object)
         (let ((scode (compiled-expression/scode object)))