diff options
Diffstat (limited to '')
-rwxr-xr-x | cpp | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -14,8 +14,11 @@ exec $GUILE -e main -s "$0" "$@" (srfi srfi-88)) (define (main args) - (let ((env tokens (preprocess-string (read-file (cadr args)) (make-default-environment)))) - (pprint-environment env) + (let* ((content (read-file (cadr args))) + (env tokens (preprocess-string content (make-default-environment)))) + (pprint-environment env (current-output-port)) + (newline) + (display "== tokens ==") (newline) (display (unlex tokens)) (newline) |