From fb1e77539ea2eea41e87cb50743a2e4df8e8dac5 Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Tue, 19 Jul 2016 20:34:54 +1200
Subject: [PATCH] def/set/lookup are working!

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

diff --git a/scheme.4th b/scheme.4th
index 4dee70f..8581893 100644
--- a/scheme.4th
+++ b/scheme.4th
@@ -143,9 +143,9 @@ create-symbol ok        ok-symbol
 
 : add-binding ( var val frame -- )
     2swap 2over frame-vals cons
-    2over set-car!
+    2over set-cdr!
     2swap 2over frame-vars cons
-    swap set-cdr!
+    2swap set-car!
 ;
 
 : extend-env ( vars vals env -- env )
@@ -203,7 +203,7 @@ hide vals
     get-vars-vals if
         2swap 2drop car
     else
-        bold fg red ." Tried to read unbound variable." reset-term abort
+        bold fg red ." Tried to read unbound variable." reset-term cr abort
     then
 ;
 
@@ -213,7 +213,7 @@ hide vals
         2swap 2drop ( val vals )
         set-car!
     else
-        bold fg red ." Tried to set unbound variable." reset-term abort
+        bold fg red ." Tried to set unbound variable." reset-term cr abort
     then
 ;
 
@@ -872,3 +872,5 @@ defer print
 ;
 
 forth definitions
+
+\ vim:fdm=marker
-- 
2.20.1