diff options
| -rw-r--r-- | shell/evaluate.mu | 4 | ||||
| -rw-r--r-- | shell/global.mu | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/shell/evaluate.mu b/shell/evaluate.mu index 7c6b6961..30fbe9fe 100644 --- a/shell/evaluate.mu +++ b/shell/evaluate.mu @@ -736,7 +736,7 @@ fn test-lookup-symbol-in-globals { var result-type/edx: (addr int) <- get result, type check-ints-equal *result-type, 4/primitive-function, "F - test-lookup-symbol-in-globals/0" var result-value/eax: (addr int) <- get result, index-data - check-ints-equal *result-value, 2/add, "F - test-lookup-symbol-in-globals/1" + check-ints-equal *result-value, 1/add, "F - test-lookup-symbol-in-globals/1" } fn mutate-binding name: (addr stream byte), val: (addr handle cell), env-h: (handle cell), globals: (addr global-table), trace: (addr trace) { @@ -1124,7 +1124,7 @@ fn test-evaluate-primitive-function { var result-type/edx: (addr int) <- get result, type check-ints-equal *result-type, 4/primitive-function, "F - test-evaluate-primitive-function/0" var result-value/eax: (addr int) <- get result, index-data - check-ints-equal *result-value, 2/add, "F - test-evaluate-primitive-function/1" + check-ints-equal *result-value, 1/add, "F - test-evaluate-primitive-function/1" } fn test-evaluate-primitive-function-call { diff --git a/shell/global.mu b/shell/global.mu index 3f83c70e..f5ad414b 100644 --- a/shell/global.mu +++ b/shell/global.mu @@ -12,8 +12,6 @@ fn initialize-globals _self: (addr global-table) { var self/esi: (addr global-table) <- copy _self var data-ah/eax: (addr handle array global) <- get self, data populate data-ah, 0x40 - # generic - append-primitive self, "=" # for numbers append-primitive self, "+" append-primitive self, "-" @@ -26,6 +24,8 @@ fn initialize-globals _self: (addr global-table) { append-primitive self, ">" append-primitive self, "<=" append-primitive self, ">=" + # generic + append-primitive self, "=" # for pairs append-primitive self, "car" append-primitive self, "cdr" |