Re: [gambit-list] bug with write?

13 Sep 2008

      You would be able to get it down to:
...
'(foo syntax 1)
(foo . #'1)
Dunno about the reason.

If you wanted, you could try this simple, unfinished and unpolished printer instead:

(define (pretty-print x)
  (cond ((symbol? x)
	 (display x)
	 (display " "))
	((string? x)
	 (display (list #\" x #\" #\space)))
	((pair? x)
	 (display #\()
	 (let lp ((x x))
	   (pretty-print (car x))
	   (let ((d (cdr x)))
	     (cond ((null? d)
		    (display #\)))
		   ((pair? d)
		    (lp d))
		   (else
		    (display #\.)
		    (pretty-print d))))))
	((null? x)
	 (display #\()
	 (display #\)))
	((number? x)
	 (display x)
	 (display #\space))
	(else
	 (error "don't know type of:" x))))

Re: [gambit-list] bug with write?

Christian Jaeger