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 19:52:24 -07:00
parent c0db806820
commit 916d011753
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
shell/global.mu
View File

@ -547,27 +547,6 @@ fn stash-gap-buffer-to-globals _globals: (addr global-table), definitions: (addr
}
}
fn is-definition? _expr: (addr cell) -> _/eax: boolean {
var expr/eax: (addr cell) <- copy _expr
# if expr->left is neither "define" nor "set", return
var left-ah/eax: (addr handle cell) <- get expr, left
var _left/eax: (addr cell) <- lookup *left-ah
var left/ecx: (addr cell) <- copy _left
{
var def?/eax: boolean <- symbol-equal? left, "define"
compare def?, 0/false
break-if-=
return 1/true
}
{
var set?/eax: boolean <- symbol-equal? left, "set"
compare set?, 0/false
break-if-=
return 1/true
}
return 0/false
}
# load all bindings in a single lexical scope, aka gap buffer of the environment, aka file of the file system
fn load-lexical-scope in-ah: (addr handle gap-buffer), _globals: (addr global-table) {
var globals/esi: (addr global-table) <- copy _globals