cross.fs needs $@

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