Commit c510f19b authored by bernd's avatar bernd

special-casing push' to avoid issues with scoping

parent b7b47223
......@@ -185,6 +185,7 @@ drop
4 of pf@ f. ." float, " endof
5 of ." endwith " cr t-pop token-table ! endof
6 of ." oswap " cr token-table @ t-pop token-table ! t-push endof
$15 of ." push' " p@ .net2o-name endof
.net2o-name
0 endcase ]hex ;
......@@ -377,7 +378,10 @@ Variable throwcount
r> sp! 2drop +cmd ;
: cmd-loop ( addr u -- )
stacks-$off o to connection
string-stack $off
object-stack $off
nest-stack $off
o to connection
o IF
maxdata code+
cmd0source off
......
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