blob: b38f0008be433f6daed04877c5a09b236af64c13 (
plain)
1
2
3
4
5
6
7
|
(use-modules (ice-9 readline))
(use-modules (ice-9 pretty-print))
(activate-readline)
(define (pp . args)
"Display (pretty-print) args, following each with a newline."
(for-each (lambda (arg) (pretty-print arg)) args))
|