print-lines.scrbl (449B)
1 #lang scribble/manual 2 3 @(require scribble/eval) 4 5 @title{Pretty-Print-Handler Bug Example} 6 7 @(define the-eval (make-base-eval)) 8 @(interaction-eval 9 #:eval the-eval 10 (begin 11 (require racket/pretty) 12 (current-print pretty-print-handler))) 13 14 @examples[#:eval the-eval 15 '((x "positional 1") 16 (rest ("positional 2" "positional 3")) 17 (a ()) 18 (b ("b-arg")) 19 (c (("first c1" "second c1") ("first c2" "second c2"))) 20 (d #f) 21 (e ()))]