Skip to content

@alexandream /pretty-printer.scm
Created

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Simple scheme pretty printer in Guile.
#!/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.