From 9170f59c407b94a753a7352292c38f30b59a61f6 Mon Sep 17 00:00:00 2001 From: Bernd Paysan Date: Sun, 16 Jul 2017 00:48:27 +0200 Subject: [PATCH] cross.fs needs $@ --- cross.fs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cross.fs b/cross.fs index f6546af3..7b9c5b94 100644 --- a/cross.fs +++ b/cross.fs @@ -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 -- GitLab