Cpp "binary" now also prints parse result.

1 files changed, 5 insertions, 2 deletions

diff --git a/cpp b/cpp
index 127a4920..bdc140d7 100755
--- a/cpp
+++ b/cpp
@@ -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)