From f95f47dbec94087af4452f20e9eca72fb7f299c8 Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sun, 10 Jul 2016 16:25:01 +1200
Subject: [PATCH] Fixed pair read/print.

---
 scheme.4th | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme.4th b/scheme.4th
index 75055ff..63a3420 100644
--- a/scheme.4th
+++ b/scheme.4th
@@ -394,14 +394,14 @@ defer read
 ;
 
 : printnil ( nilobj -- )
-    drop ." ()" ;
+    2drop ." ()" ;
 
 defer print
 : printpair ( pairobj -- )
     2dup
     car print
     cdr
-    nil-type istype? if 2drop ." )" exit then
+    nil-type istype? if 2drop exit then
     pair-type istype? if space recurse exit then
     ."  . " print
 ;
-- 
2.20.1