From 19396bc87fe659433b18bb4f0447c23a677bbaa1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 22 Jul 2022 17:24:23 +0200 Subject: Cpp "binary" now also prints parse result. --- cpp | 7 +++++-- 1 file 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) -- cgit v1.2.3