--- a/r3/printtng.scm Tue Nov 01 11:15:58 2005 +1300
+++ b/r3/printtng.scm Tue Nov 01 11:16:31 2005 +1300
@@ -20,18 +20,19 @@
(let walk ((c c))
(case (car c)
((tuple) (show-join ", " (map walk (cdr c))))
- ((atom lit) (let ((o (open-output-string)))
- (display (cadr c) o)
- (get-output-string o)))
+ ((atom) (list "#" (symbol->string (cadr c))))
+ ((lit) (let ((o (open-output-string)))
+ (display (cadr c) o)
+ (get-output-string o)))
((adj) (list (walk (cadr c)) " " (walk (caddr c))))
((fun) (show-join " " (map (lambda (entry)
(list (show-tng (car entry) 'quote) ": "
(show-tng (cadr entry) 'eval)))
(cdr c))))
- ((eval) (show-parens (show-tng (cadr c) 'eval) 'eval))
- ((quote) (if (eq? (car (cadr c)) 'atom)
- (list "#" (symbol->string (cadr (cadr c))))
- (show-parens (show-tng (cadr c) 'quote) 'quote)))
+ ((eval) (if (eq? (car (cadr c)) 'atom)
+ (symbol->string (cadr (cadr c)))
+ (show-parens (show-tng (cadr c) 'eval) 'eval)))
+ ((quote) (show-parens (show-tng (cadr c) 'quote) 'quote))
((meta-quote) (show-parens (show-tng (cadr c) 'meta-quote) 'meta-quote))
((discard) "_")
(else (error "Unknown term in show-tng" c))))))