Lines Matching refs:printer
18 (define (make-pp_s-printer val)
19 (make-pretty-printer-worker
21 (lambda (printer)
26 (define (make-pp_ss-printer val)
27 (make-pretty-printer-worker
29 (lambda (printer) "super struct")
30 (lambda (printer)
48 (define (make-pretty-printer-dict)
50 (hash-set! dict "struct s" make-pp_s-printer)
51 (hash-set! dict "s" make-pp_s-printer)
52 (hash-set! dict "struct ss" make-pp_ss-printer)
53 (hash-set! dict "ss" make-pp_ss-printer)
56 (define *pretty-printer*
57 (make-pretty-printer
58 "pretty-printer-test"
59 (let ((pretty-printers-dict (make-pretty-printer-dict)))
61 "Look-up and return a pretty-printer that can print val."
65 (let ((printer-maker (hash-ref pretty-printers-dict typename)))
66 (and printer-maker (printer-maker val)))
69 (append-pretty-printer! #f *pretty-printer*)
Indexes created Sun Mar 29 00:23:15 UTC 2026