From 0a2eb07a6dbc028526b39bc48e04c885a5be5e2a Mon Sep 17 00:00:00 2001
From: Benjamin Vedder <benjamin@vedder.se>
Date: Tue, 22 Feb 2022 21:39:18 +0100
Subject: [PATCH] Squashed 'lispBM/lispBM/' changes from ccc08bc3..72f05666

72f05666 extended setvar functionality to heap defined variables

git-subtree-dir: lispBM/lispBM
git-subtree-split: 72f05666afed4bd3a506803724f98f17ce4300c5
---
 src/fundamental.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/fundamental.c b/src/fundamental.c
index cdf5eef6..e40bd8d5 100644
--- a/src/fundamental.c
+++ b/src/fundamental.c
@@ -23,6 +23,8 @@
 #include "eval_cps.h"
 #include "print.h"
 #include "lbm_variables.h"
+#include "env.h"
+
 #include <stdio.h>
 #include <math.h>
 
@@ -585,6 +587,9 @@ lbm_value lbm_fundamental(lbm_value* args, lbm_uint nargs, lbm_value op) {
       if (s >= VARIABLE_SYMBOLS_START &&
           s <  VARIABLE_SYMBOLS_END) {
         result = lbm_set_var(s, args[1]);
+      } else {
+        *lbm_get_env_ptr() = lbm_env_set(lbm_get_env(), args[0], args[1]);
+        result = args[1];
       }
     } break;
   case SYM_IX: