about summary refs log tree commit diff stats
path: root/shell
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-04-25 22:00:00 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-04-25 22:00:00 -0700
commit6e0f0bdf50e248f68f5b5df2d7163d854b893174 (patch)
tree60a11d5b93f0e41e291904895ea19a848c86e1af /shell
parentffe36c4050b89df0c8dd2943f1deda849400bef3 (diff)
downloadmu-6e0f0bdf50e248f68f5b5df2d7163d854b893174.tar.gz
.
Diffstat (limited to 'shell')
-rw-r--r--shell/evaluate.mu4
-rw-r--r--shell/global.mu4
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"