Commit 1ce6b6ef authored by Bernd Paysan's avatar Bernd Paysan

cross.fs needs $@

parent c5c4fc5d
......@@ -242,7 +242,7 @@ Create bases 10 , 2 , A , 100 ,
: >stack ( x stack -- )
\G push to top of stack
>r r@ $@len cell+ r@ $!len
r> $@ + cell- ! ;
r> $@ + 1 cells - ! ;
[THEN]
>CROSS
......
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