diff options
| -rw-r--r-- | apps/mu.subx | 8 |
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) |