Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Simple scheme pretty printer in Guile.
#!/usr/bin/guile -s
(use-modules (ice-9 pretty-print))
(define args (command-line))
(if (< (length args) 2)
(display "Not enough parameters, need a file name.")
(let ((fd (open-file (list-ref args 1) "r")))
(let loop ((sexp (read fd)))
(if (not (eof-object? sexp))
(pretty-print sexp)
(loop (read fd))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment