From 37336bdf694b11e41d542981100473d7a49276d2 Mon Sep 17 00:00:00 2001
From: Carsten Strotmann <cas@strotmann.de>
Date: Wed, 12 Feb 2020 15:46:55 +0100
Subject: [PATCH] change defined to [defined]

---
 preForth/load-preForth.fs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/preForth/load-preForth.fs b/preForth/load-preForth.fs
index 13dd2c9..6dfce7f 100644
--- a/preForth/load-preForth.fs
+++ b/preForth/load-preForth.fs
@@ -1,11 +1,12 @@
 \ Load preForth on GForth or SwiftForth connected to stdin and stdout.
 
+\ : [DEFINED] BL WORD FIND NIP 0<> ; IMMEDIATE
 
-defined warnings [IF] \ e.g. gforth
+[DEFINED] warnings [IF] \ e.g. gforth
  warnings off
 [THEN]
 
-defined warning [IF] \ e.g. SwiftForth
+[DEFINED] warning [IF] \ e.g. SwiftForth
  warning off
 [THEN]
 
@@ -18,11 +19,11 @@ Variable ch
     ; \ dup emit ;
 
 \ This : allows for recursion by using a word's name.
-defined -smudge [IF] \ SwiftForth
+[defined] -smudge [IF] \ SwiftForth
 : : : -smudge ;
 [THEN]
 
-defined reveal [IF] \ gforth
+[defined] reveal [IF] \ gforth
 : : : reveal ;
 [THEN]