diff options
Diffstat (limited to 'shell/primitives.mu')
| -rw-r--r-- | shell/primitives.mu | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/shell/primitives.mu b/shell/primitives.mu index 2cfb099c..66bc3786 100644 --- a/shell/primitives.mu +++ b/shell/primitives.mu @@ -318,10 +318,10 @@ fn apply-primitive _f: (addr cell), args-ah: (addr handle cell), out: (addr hand return } { - var structurally-equal?/eax: boolean <- string-equal? f-name, "=" - compare structurally-equal?, 0/false + var cell-isomorphic?/eax: boolean <- string-equal? f-name, "=" + compare cell-isomorphic?, 0/false break-if-= - apply-structurally-equal args-ah, out, trace + apply-cell-isomorphic args-ah, out, trace return } { @@ -1191,7 +1191,7 @@ fn apply-cons-check _args-ah: (addr handle cell), out: (addr handle cell), trace } -fn apply-structurally-equal _args-ah: (addr handle cell), out: (addr handle cell), trace: (addr trace) { +fn apply-cell-isomorphic _args-ah: (addr handle cell), out: (addr handle cell), trace: (addr trace) { trace-text trace, "eval", "apply '='" var args-ah/eax: (addr handle cell) <- copy _args-ah var _args/eax: (addr cell) <- lookup *args-ah |