From b3ca67eaf6ae8d6e7da17b8fbd9cfcf82d271172 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Fri, 8 Nov 2024 20:17:08 -0800
Subject: [PATCH] Tweak

---
 examples/complex.fs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/examples/complex.fs b/examples/complex.fs
index 9215237..072a337 100755
--- a/examples/complex.fs
+++ b/examples/complex.fs
@@ -36,8 +36,9 @@ also recognizers also internals
 
 : z@ ( a -- z ) dup sf@ sfloat+ sf@ ;
 : z! ( a -- z ) dup sfloat+ sf! sf! ;
-: zconstant   create fswap sf, sf, does> dup sf@ sfloat+ sf@ ;
-: zvariable   create 0i0 fswap sf, sf, ;
+: z, ( z -- ) fswap sf, sf, ;
+: zconstant   create z, does> z@ ;
+: zvariable   create 0i0 z, ;
 
 : f>r   r> fp@ ul@ fdrop >r >r ;
 : r>f   r> r> fdup fp@ l! >r ;