diff options
Diffstat (limited to 'shell/primitives.mu')
| -rw-r--r-- | shell/primitives.mu | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/shell/primitives.mu b/shell/primitives.mu index 3ea943a5..1b25583c 100644 --- a/shell/primitives.mu +++ b/shell/primitives.mu @@ -14,6 +14,7 @@ fn initialize-primitives _self: (addr global-table) { append-primitive self, "<=" append-primitive self, ">=" # generic + append-primitive self, "apply" append-primitive self, "=" append-primitive self, "no" append-primitive self, "not" @@ -104,7 +105,7 @@ fn render-primitives screen: (addr screen), xmin: int, xmax: int, ymax: int { tmpx <- draw-text-rightward screen, ": stream grapheme -> stream", tmpx, xmax, y, 7/fg=grey, 0xdc/bg=green-bg y <- increment var tmpx/eax: int <- copy xmin - tmpx <- draw-text-rightward screen, "fn set if while cons car cdr no not and or = ", tmpx, xmax, y, 0x2a/fg=orange, 0xdc/bg=green-bg + tmpx <- draw-text-rightward screen, "fn apply set if while cons car cdr no not and or = ", tmpx, xmax, y, 0x2a/fg=orange, 0xdc/bg=green-bg # numbers tmpx <- draw-text-rightward screen, "< > <= >= + - * / % sqrt abs sgn", tmpx, xmax, y, 0x2a/fg=orange, 0xdc/bg=green-bg } |