From 05f885660fc39c1671e5e33b1a656ac9c60320f3 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 11 Aug 2017 17:34:41 +0000
Subject: [PATCH] WIP

---
 read.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/read.scm b/read.scm
index 345fe40a..9e111854 100644
--- a/read.scm
+++ b/read.scm
@@ -697,7 +697,8 @@
   "(void *data, int argc, closure _, object k, object port)"
   " Cyc_io_read_token(data, k, port);")
 
-(read-token (open-input-file "generate-c.scm"))
+(write
+  (read-token (open-input-file "generate-c.scm")))
 
 ;; Notes on writing a fast parser:
 ; - Interface to the user is (read). This needs to be fast