Created

Embed URL

HTTPS clone URL

SSH clone URL

You can clone with HTTPS or SSH.

Download Gist

Simple scheme pretty printer in Guile.

View pretty-printer.scm
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)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.