evaluating fns is too similar to its input

When I edit disk images directly, it's easy to forget a pair of parens.
Then the first expression of the body never executes.
This commit is contained in:
Kartik K. Agaram 2021-04-17 20:58:36 -07:00
parent 568eb7328f
commit 60cab88ace
1 changed files with 1 additions and 1 deletions

View File

@ -59,7 +59,7 @@ fn evaluate _in: (addr handle cell), out: (addr handle cell), env-h: (handle cel
}
# in-addr is a syntax tree
$evaluate:anonymous-function: {
# trees starting with "fn" are anonymous functions and therefore literals
# trees starting with "fn" are anonymous functions
var expr/esi: (addr cell) <- copy in-addr
# if its first elem is not "fn", break
var in-addr/edx: (addr cell) <- copy in-addr