Change definition of uncons.

2023-09-18 11:26:50 -07:00
parent ecc2e442fb
commit 16cc0e5769
7 changed files with 8 additions and 5 deletions
@@ -111,7 +111,7 @@ ternary binary popd
 third rest second
 tuck dup swapd
 unary nullary popd
-uncons [first] [rest] cleave
+uncons [first] dupdip rest
 unit [] cons
 unquoted [i] dip
 unstack [[] swaack] dip swoncat swaack pop
@@ -606,6 +606,7 @@ proc joy(stack: JoyListType, expression: JoyListType, dictionary: JoyMapType): (
  var term: JoyType

  while not e.isEmpty:
+    #echo print_stack(s) & " . " & print_expression(e)
    (term, e) = next_term(e)
    #echo pr_str(term)
    case term.kind