X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=src%2Fscheme.4th;h=cf3ddc5d2db655fe1d5ae6a3e98c63d7d9c626dd;hp=68c3b67478f16ffa10bdbc659ebd10810d6e0a90;hb=8d87c905d883a612eafa69cb69e808d36375490b;hpb=722badbcc9d3453b18df83c95a935c095a23d4a6

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