diff --git a/core.fs b/core.fs index d1e65eb..6316281 100644 --- a/core.fs +++ b/core.fs @@ -674,19 +674,10 @@ alias-builtin xor ^ here @ over - swap ! \ backfill offset from while to here ; immediate -:noname - begin - 1 - while - [ key A ] literal emit - repeat -; execute - - -bye - -\ === Integer Comparison === - +\ === Recursive Call === +: recurse + latest @ >cfa , +; immediate bye