projects
/
sandbox
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(define) evaluates definition
[sandbox]
/
stutter.py
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);
{
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);
assert(name->type == SYMBOL);
*parent = makeEnvironmentPointer(name->instance.symbol, value, *parent);