diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-04-10 22:38:02 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-04-10 22:38:02 -0700 |
commit | f38c2a1502648b0be16fc2e984420886cf64cdee (patch) | |
tree | c6ffcfa28c1eb7743f8099e90b1eb2f9375ece99 | |
parent | 1afc02113ae7a088bf1a02ef423fcd875292c6c2 (diff) | |
download | mu-f38c2a1502648b0be16fc2e984420886cf64cdee.tar.gz |
.
-rw-r--r-- | shell/evaluate.mu | 4 | ||||
-rw-r--r-- | shell/global.mu | 7 |
2 files changed, 8 insertions, 3 deletions
diff --git a/shell/evaluate.mu b/shell/evaluate.mu index ba13b494..62e5f885 100644 --- a/shell/evaluate.mu +++ b/shell/evaluate.mu @@ -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 { diff --git a/shell/global.mu b/shell/global.mu index 22b38764..1c0dd506 100644 --- a/shell/global.mu +++ b/shell/global.mu @@ -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" } |