diff options
Diffstat (limited to 'pp.scm')
-rw-r--r-- | pp.scm | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -1,15 +1,13 @@ ;"pp.scm" Pretty-Print (require 'generic-write) - -(define (pp:pretty-print obj . opt) +;@ +(define (pretty-print obj . opt) (let ((port (if (pair? opt) (car opt) (current-output-port)))) (generic-write obj #f (output-port-width port) (lambda (s) (display s port) #t)))) - +;@ (define (pretty-print->string obj . width) (define result '()) (generic-write obj #f (if (null? width) (output-port-width) (car width)) (lambda (str) (set! result (cons str result)) #t)) (reverse-string-append result)) - -(define pretty-print pp:pretty-print) |