X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=example.f;h=f5215db9b4a08a45562910328f6831578fe25c8a;hb=bb3723bbe99455e7b95d5376758047563bd72eed;hp=2443f3264f6d852188f7249cfc1555b4f0539f84;hpb=a6faff31f03d96b6a62188f330848004119d5165;p=rrq%2Fjonasforth.git

diff --git a/example.f b/example.f
index 2443f32..f5215db 100644
--- a/example.f
+++ b/example.f
@@ -1,3 +1,6 @@
+( vim: syntax=forth
+)
+
 : FIB ( n -- Fn )
   0 1                            ( n a b )
   0                              ( n a b i )
@@ -20,6 +23,14 @@ HELLO
 
 S" 10 FIB = " TELL
 10 FIB .U
-S"  (Expected: 59)" TELL NEWLINE
+SPACE S" (Expected: 59)" TELL NEWLINE
+
+SYSCODE
+S" Word: " TELL POP-WORD TELL NEWLINE
+S" Word: " TELL POP-WORD TELL NEWLINE
+S" Word: " TELL POP-WORD TELL NEWLINE
+S" Word: " TELL POP-WORD TELL NEWLINE
+S" Word: " TELL POP-WORD TELL NEWLINE
+S" Word: " TELL POP-WORD TELL NEWLINE
 
 TERMINATE