diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-04-09 22:51:24 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-04-09 22:51:24 -0700 |
commit | 1d724f926031a73dc2e6af18b6731593a548526c (patch) | |
tree | 5f03bb8ec467b584b3e1c9a60a76da8aa5518cb9 /shell/evaluate.mu | |
parent | b3c6dddcd4b3c8579345050c67e6e00eff796c6e (diff) | |
download | mu-1d724f926031a73dc2e6af18b6731593a548526c.tar.gz |
shell: structural equality check
Mu can now compute (factorial 5)
Diffstat (limited to 'shell/evaluate.mu')
-rw-r--r-- | shell/evaluate.mu | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/shell/evaluate.mu b/shell/evaluate.mu index 00a75b9a..19fe9fdc 100644 --- a/shell/evaluate.mu +++ b/shell/evaluate.mu @@ -10,7 +10,7 @@ fn evaluate _in: (addr handle cell), out: (addr handle cell), env-h: (handle cel #? } # trace "evaluate " in " in environment " env {{{ { - var stream-storage: (stream byte 0x40) + var stream-storage: (stream byte 0x100) var stream/ecx: (addr stream byte) <- address stream-storage write stream, "evaluate " print-cell in, stream, 0/no-trace @@ -232,7 +232,7 @@ fn apply _f-ah: (addr handle cell), args-ah: (addr handle cell), out: (addr hand # if it's not a primitive function it must be an anonymous function # trace "apply anonymous function " f " in environment " env {{{ { - var stream-storage: (stream byte 0x40) + var stream-storage: (stream byte 0x100) var stream/ecx: (addr stream byte) <- address stream-storage write stream, "apply anonymous function " print-cell _f-ah, stream, 0/no-trace @@ -318,7 +318,7 @@ fn push-bindings _params-ah: (addr handle cell), _args-ah: (addr handle cell), o # Params can only be symbols or pairs. Args can be anything. # trace "pushing bindings from " params " to " args {{{ { - var stream-storage: (stream byte 0x40) + var stream-storage: (stream byte 0x100) var stream/ecx: (addr stream byte) <- address stream-storage write stream, "pushing bindings from " print-cell params-ah, stream, 0/no-trace |