Fix for closures with new lits, stuff

parent d9e6aa99
Pipeline #737 passed with stage
in 8 minutes and 44 seconds
......@@ -164,7 +164,7 @@ forth definitions
r@ dup >namevt @ >vtextra !
['] does, set-optimizer
vt, postpone THEN wrap!
r> >namevt @ lit, lits, ;
r> >namevt @ lit, ;
: n-closure> ( n vt -- xt )
[ cell 4 = ] [IF] 0 >l [THEN]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment