From 9170f59c407b94a753a7352292c38f30b59a61f6 Mon Sep 17 00:00:00 2001
From: Bernd Paysan <bernd.paysan@gmx.de>
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
 
-- 
2.26.2