diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-10-19 22:41:46 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-10-19 22:41:46 -0700 |
| commit | 5532ea013b6ee7f7aeda72d2ed592b7aa246a5f2 (patch) | |
| tree | a83090f3b9069366acb9ef8774ae24f0f031d74e /apps/tile/environment.mu | |
| parent | 3ff287f410830345bea080703a2397b896dae277 (diff) | |
| download | mu-5532ea013b6ee7f7aeda72d2ed592b7aa246a5f2.tar.gz | |
7066 - tile: some more primitives for testing
Lesson learned: functions store args in _reverse_ order. Since evaluation is very frequent, it's worth optimizing for it.
Diffstat (limited to 'apps/tile/environment.mu')
| -rw-r--r-- | apps/tile/environment.mu | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 88035bcc..1017edd5 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -1258,6 +1258,10 @@ fn clear-canvas _env: (addr environment) { print-string screen, "x 2+ = x 1+ 1+" move-cursor screen, 6, 2 print-string screen, "x square = x x *" + move-cursor screen, 7, 2 + print-string screen, "x 1- = x 1 -" + move-cursor screen, 8, 2 + print-string screen, "x y sub = x y -" } fn real-grapheme? g: grapheme -> result/eax: boolean { |