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