Add the create-does> set-to

parent a513fc6b
Pipeline #733 passed with stage
in 8 minutes and 45 seconds
......@@ -46,7 +46,7 @@ standard:field
: vfield-to: ( xt! -- )
Create ,
[: ( body -- ) >r >body vfield-int, r> @ to-!exec ;] set-does>
[: ( xt body -- ) >r >body vfield-int, r> @ to-!exec ;] set-does>
[: ( xt -- ) >r lits# 0= IF r> does, EXIT THEN
lits> >body vfield-comp, r> >body @ to-!, ;] set-optimizer ;
......
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