From 8d87c905d883a612eafa69cb69e808d36375490b Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sun, 29 Oct 2017 23:44:27 +0100
Subject: [PATCH] Fixed bug in set-var.

---
 src/scheme.4th | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/scheme.4th b/src/scheme.4th
index 68c3b67..cf3ddc5 100644
--- a/src/scheme.4th
+++ b/src/scheme.4th
@@ -485,6 +485,7 @@ objvar var \ Used only for error messages
 
 : set-var ( var val env -- )
     2rot 2dup var obj! ( val env var )
+    2swap ( val var env )
     get-vals nil? if
         except-message: ." tried to set unbound variable '" var obj@ print ." '."
         recoverable-exception throw
-- 
2.20.1