diff options
Diffstat (limited to 'shell/evaluate.mu')
| -rw-r--r-- | shell/evaluate.mu | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/shell/evaluate.mu b/shell/evaluate.mu index f27df21b..8ad89795 100644 --- a/shell/evaluate.mu +++ b/shell/evaluate.mu @@ -217,18 +217,18 @@ fn evaluate _in-ah: (addr handle cell), _out-ah: (addr handle cell), env-h: (han trace-higher trace return } - $evaluate:def: { - # trees starting with "def" define globals + $evaluate:define: { + # trees starting with "define" define globals var expr/esi: (addr cell) <- copy in - # if its first elem is not "def", break + # if its first elem is not "define", break var first-ah/ecx: (addr handle cell) <- get in, left var rest-ah/edx: (addr handle cell) <- get in, right var first/eax: (addr cell) <- lookup *first-ah - var def?/eax: boolean <- symbol-equal? first, "def" - compare def?, 0/false + var define?/eax: boolean <- symbol-equal? first, "define" + compare define?, 0/false break-if-= # - trace-text trace, "eval", "def" + trace-text trace, "eval", "define" trace-text trace, "eval", "evaluating second arg" var rest/eax: (addr cell) <- lookup *rest-ah var first-arg-ah/ecx: (addr handle cell) <- get rest, left @@ -237,7 +237,7 @@ fn evaluate _in-ah: (addr handle cell), _out-ah: (addr handle cell), env-h: (han var first-arg-type/eax: (addr int) <- get first-arg, type compare *first-arg-type, 2/symbol break-if-= - error trace, "first arg to def must be a symbol" + error trace, "first arg to define must be a symbol" trace-higher trace return } |