branch, dip, i, loop

The core combinators (except fork).
2022-09-24 20:45:06 -07:00
parent 3ecd7ab595
commit c591bf4138
3 changed files with 63 additions and 5 deletions
@@ -857,9 +857,9 @@ def branch(stack, expr, dictionary):

    '''
    then, else_, flag, stack = get_n_items(3, stack)
-    isnt_bool(flag)
-    isnt_stack(else_)
    isnt_stack(then)
+    isnt_stack(else_)
+    isnt_bool(flag)
    expr = push_quote((then if flag else else_), expr)
    return stack, expr, dictionary