about summary refs log tree commit diff stats
path: root/shell
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-07-08 16:20:17 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-07-08 16:20:17 -0700
commit13ef6b62023b1a243bbeb3e8965d413a79a4823d (patch)
tree32a6c45acdeb808334b853a0165f328a12715831 /shell
parent3ee70401e34ff7a8ce3078ef3984b10ea756bbe9 (diff)
downloadmu-13ef6b62023b1a243bbeb3e8965d413a79a4823d.tar.gz
.
Diffstat (limited to 'shell')
-rw-r--r--shell/primitives.mu8
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