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

.

This commit is contained in:
Kartik K. Agaram 2021-04-10 22:38:02 -07:00
parent 1afc02113a
commit f38c2a1502
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
shell/evaluate.mu
View File

@ -545,7 +545,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, 1/add, "F - test-lookup-symbol-in-globals/1"
check-ints-equal *result-value, 2/add, "F - test-lookup-symbol-in-globals/1"
}
fn car _in: (addr cell), out: (addr handle cell), trace: (addr trace) {
@ -827,7 +827,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, 1/add, "F - test-evaluate-primitive-function/1"
check-ints-equal *result-value, 2/add, "F - test-evaluate-primitive-function/1"
}
fn test-evaluate-primitive-function-call {

7
shell/global.mu
View File

@ -12,16 +12,21 @@ 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, 0x10
# generic
append-primitive self, "="
# for numbers
append-primitive self, "+"
append-primitive self, "-"
append-primitive self, "*"
append-primitive self, "/"
append-primitive self, "sqrt"
# for pairs
append-primitive self, "car"
append-primitive self, "cdr"
append-primitive self, "cons"
append-primitive self, "="
# for screens
append-primitive self, "print"
# for keyboards
append-primitive self, "key"
}