cross.fs needs $@

parent 81d7f63e
......@@ -212,9 +212,9 @@ Create bases 10 , 2 , A , 100 ,
\GFORTH [IFUNDEF] assert1(
\GFORTH also forth definitions require assert.fs previous
\GFORTH [THEN]
\GFORTH [IFUNDEF] $@
\GFORTH also forth definitions require string.fs previous
\GFORTH [THEN]
[IFUNDEF] $@
: $@ @ dup IF dup cell+ swap @ ELSE 0 THEN ;
[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