public
Created

Simple scheme pretty printer in Guile.

  • Download Gist
pretty-printer.scm
Scheme
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#!/usr/bin/guile -s
!#
(use-modules (ice-9 pretty-print))
 
(define args (command-line))
 
(if (< (length args) 2)
(begin
(display "Not enough parameters, need a file name.")
(newline))
(let ((fd (open-file (list-ref args 1) "r")))
(let loop ((sexp (read fd)))
(if (not (eof-object? sexp))
(begin
(pretty-print sexp)
(loop (read fd))
#F)))))

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.