[Wisp-cvs] wisp/modules display.wim,1.8,1.9

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

Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv28356/modules

Modified Files:
	display.wim 
Log Message:
Reformatted |display|.

Index: display.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/display.wim,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- display.wim	22 Jul 2002 14:53:07 -0000	1.8
+++ display.wim	4 Sep 2002 14:25:33 -0000	1.9
@@ -12,28 +12,28 @@
 
 (define (display s (port *stdout*))
   (cond
-    ((or (rational? s) (eq? s #t) (eq? s #f) (eq? s '()) (symbol? s))
-     (write s))
+    ((or (number? s) (boolean? s) (null? s) (symbol? s))
+      (write s))
     ((string? s) (write-string s port))
     ((char? s) (write-char s port))
     ((vector? s)
-     (write-char #\# port)
-     (display (vector->list s) port))
+      (write-char #\# port)
+      (display (vector->list s) port))
     ((cons? s)
-     (write-char #\open port)
-     (let (intloop (s s))
-       (cond
-         ((null? (cdr s))
-          (display (car s) port))
-         ((cons? (cdr s))
-          (display (car s) port)
-          (write-char #\space port)
-          (intloop (cdr s)))
-         (else
-           (display (car s) port)
-           (write-string " . " port)
-           (display (cdr s) port))))
-     (write-char #\close port))
+      (write-char #\open port)
+      (let (intloop (s s))
+        (cond
+          ((null? (cdr s))
+            (display (car s) port))
+          ((cons? (cdr s))
+            (display (car s) port)
+            (write-char #\space port)
+            (intloop (cdr s)))
+          (else
+            (display (car s) port)
+            (write-string " . " port)
+            (display (cdr s) port))))
+      (write-char #\close port))
     (else
       (write s port)))
   (begin))