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

.

This commit is contained in:
Kartik K. Agaram 2021-07-19 20:08:30 -07:00
parent 4b5a6f6c30
commit 1eb1ac81ea
2 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
shell/environment.mu
View File

@ -283,9 +283,7 @@ fn edit-environment _self: (addr environment), key: grapheme, data-disk: (addr d
var global-data/eax: (addr array global) <- lookup *global-data-ah
var curr-offset/ebx: (offset global) <- compute-offset global-data, curr-index
var curr/ebx: (addr global) <- index global-data, curr-offset
var curr-value-ah/eax: (addr handle cell) <- get curr, value
var curr-value/eax: (addr cell) <- lookup *curr-value-ah
var primitive?/eax: boolean <- primitive? curr-value
var primitive?/eax: boolean <- primitive-global? curr
compare primitive?, 0/false
break-if-=
var go-modal-error-ah/eax: (addr handle array byte) <- get self, go-modal-error

9
shell/primitives.mu
View File

@ -179,13 +179,8 @@ fn primitive-global? _x: (addr global) -> _/eax: boolean {
break-if-!=
return 0/false
}
{
var value-type/eax: (addr int) <- get value, type
compare *value-type, 4/primitive
break-if-=
return 0/false
}
return 1/true
var primitive?/eax: boolean <- primitive? value
return primitive?
}
fn append-primitive _self: (addr global-table), name: (addr array byte) {