(define) evaluates definition

diff --git a/integration_tests/0004_define_evaluates_definition.stt b/integration_tests/0004_define_evaluates_definition.stt
new file mode 100644 (file)
index 0000000..17afe15
--- /dev/null
+++ b/integration_tests/0004_define_evaluates_definition.stt
@@ -0,0 +1,4 @@
+(define hello-world "Hello, world")
+(define hello-world-copy hello-world)
+(print hello-world-copy)
+0

diff --git a/integration_tests/0004_define_evaluates_definition.txt b/integration_tests/0004_define_evaluates_definition.txt
new file mode 100644 (file)
index 0000000..dbe9dba
--- /dev/null
+++ b/integration_tests/0004_define_evaluates_definition.txt
@@ -0,0 +1 @@
+Hello, world
\ No newline at end of file

diff --git a/stutter.py b/stutter.py
index 7b70dce..c2139e5 100644 (file)
--- a/stutter.py
+++ b/stutter.py
@@ -718,7 +718,7 @@ void define(Environment** parent, Object* args)
 {
     assert(countArgs(args) == 2);
     Object* name = getArg(0, args);
-    Object* value = getArg(1, args);
+    Object* value = c_evaluate(parent, getArg(1, args));
 
     assert(name->type == SYMBOL);
     *parent = makeEnvironmentPointer(name->instance.symbol, value, *parent);