about summary refs log tree commit diff stats
path: root/apps
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2020-07-24 21:29:20 -0700
committerKartik Agaram <vc@akkartik.com>2020-07-24 21:29:20 -0700
commita4c31549f9555a673b804d9dfa21b8ebfd8862d0 (patch)
treea696fe741279dc1ecef619c5f4cf8f533b61af33 /apps
parent511844ffb9c196102961d80e95c751dc051f376b (diff)
downloadmu-a4c31549f9555a673b804d9dfa21b8ebfd8862d0.tar.gz
6665
Diffstat (limited to 'apps')
-rw-r--r--apps/mu.subx8
1 files changed, 4 insertions, 4 deletions
diff --git a/apps/mu.subx b/apps/mu.subx
index 378410d3..5cdd9247 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -12401,8 +12401,8 @@ $type-component-match?:compare-addr:
     0f 84/jump-if-= $type-component-match?:end/disp32
 $type-component-match?:compare-atom-state:
     # if (def->is-atom? != call->is-atom?) return false
-    8b/-> *ecx 3/r32/ebx  # Type-tree-value
-    39/compare *edx 3/r32/ebx  # Type-tree-value
+    8b/-> *ecx 3/r32/ebx  # Type-tree-is-atom
+    39/compare *edx 3/r32/ebx  # Type-tree-is-atom
     b8/copy-to-eax 0/imm32/false
     0f 85/jump-if-!= $type-component-match?:end/disp32
     # if def->is-atom? return (def->value == call->value)
@@ -12657,8 +12657,8 @@ $type-equal?:compare-addr:
     0f 84/jump-if-= $type-equal?:end/disp32
 $type-equal?:compare-atom-state:
     # if (a->is-atom? != b->is-atom?) return false
-    8b/-> *ecx 3/r32/ebx  # Type-tree-value
-    39/compare *edx 3/r32/ebx  # Type-tree-value
+    8b/-> *ecx 3/r32/ebx  # Type-tree-is-atom
+    39/compare *edx 3/r32/ebx  # Type-tree-is-atom
     b8/copy-to-eax 0/imm32/false
     0f 85/jump-if-!= $type-equal?:end/disp32
     # if a->is-atom? return (a->value == b->value)