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

.

This commit is contained in:
Kartik K. Agaram 2021-04-25 22:00:00 -07:00
parent ffe36c4050
commit 6e0f0bdf50
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
shell/evaluate.mu
View File

@ -736,7 +736,7 @@ fn test-lookup-symbol-in-globals {
var result-type/edx: (addr int) <- get result, type
check-ints-equal *result-type, 4/primitive-function, "F - test-lookup-symbol-in-globals/0"
var result-value/eax: (addr int) <- get result, index-data
check-ints-equal *result-value, 2/add, "F - test-lookup-symbol-in-globals/1"
check-ints-equal *result-value, 1/add, "F - test-lookup-symbol-in-globals/1"
}
fn mutate-binding name: (addr stream byte), val: (addr handle cell), env-h: (handle cell), globals: (addr global-table), trace: (addr trace) {
@ -1124,7 +1124,7 @@ fn test-evaluate-primitive-function {
var result-type/edx: (addr int) <- get result, type
check-ints-equal *result-type, 4/primitive-function, "F - test-evaluate-primitive-function/0"
var result-value/eax: (addr int) <- get result, index-data
check-ints-equal *result-value, 2/add, "F - test-evaluate-primitive-function/1"
check-ints-equal *result-value, 1/add, "F - test-evaluate-primitive-function/1"
}
fn test-evaluate-primitive-function-call {

4
shell/global.mu
View File

@ -12,8 +12,6 @@ fn initialize-globals _self: (addr global-table) {
var self/esi: (addr global-table) <- copy _self
var data-ah/eax: (addr handle array global) <- get self, data
populate data-ah, 0x40
# generic
append-primitive self, "="
# for numbers
append-primitive self, "+"
append-primitive self, "-"
@ -26,6 +24,8 @@ fn initialize-globals _self: (addr global-table) {
append-primitive self, ">"
append-primitive self, "<="
append-primitive self, ">="
# generic
append-primitive self, "="
# for pairs
append-primitive self, "car"
append-primitive self, "cdr"