akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

.

This commit is contained in:
Kartik K. Agaram 2021-07-08 16:20:17 -07:00
parent 3ee70401e3
commit 13ef6b6202
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
shell/primitives.mu
View File

@ -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