#lang scheme/base (require (planet dherman/c:3:1) scheme/control scheme/pretty) (define (parse filename) (pretty-print (parse-program (open-input-file filename) #:source filename))) ;; (prompt (parse "test-1.c")) (prompt (parse "test-2.c"))