--- misc-modules.texi.~1.6.~ 1970-01-01 10:00:01.000000000 +1000 +++ misc-modules.texi 2003-11-04 09:55:41.000000000 +1000 @@ -21,7 +21,8 @@ @lisp (pretty-print '(define (foo) (lambda (x) -(cond ((zero? x) #t) ((negative? x) -x) (else (if (= x 1) 2 (* x x x))))))) +(cond ((zero? x) #t) ((negative? x) -x) (else +(if (= x 1) 2 (* x x x))))))) @print{} (define (foo) (lambda (x) @@ -30,10 +31,26 @@ (else (if (= x 1) 2 (* x x x)))))) @end lisp address@hidden {Scheme Procedure} pretty-print obj [port] address@hidden {Scheme Procedure} pretty-print obj [port] [keyword-options] Print the textual representation of the Scheme object @var{obj} to @var{port}. @var{port} defaults to the current output port, if not given. + +The further @var{keyword-options} are keywords and parameters as +follows, + address@hidden @asis address@hidden @nicode{#:display?} @var{flag} +If @var{flag} is true then print using @code{display}. The default is address@hidden which means use @code{write} style. (@pxref{Writing}) + address@hidden @nicode{#:per-line-prefix} @var{string} +Print the given @var{string} as a prefix on each line. The default is +no prefix. + address@hidden @nicode{#:width} @var{columns} +Print within the given @var{columns}. The default is 79. address@hidden table @end deffn Beware: Since @code{pretty-print} uses it's own write procedure, it's