From 13ef6b62023b1a243bbeb3e8965d413a79a4823d Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Thu, 8 Jul 2021 16:20:17 -0700 Subject: . --- shell/primitives.mu | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'shell') 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 -- cgit 1.4.1-2-gfad0