shocking news: leaving shit on stack breaks program

oops

1 files changed, 3 insertions, 3 deletions

diff --git a/jefs.fs b/jefs.fs
index 7a28b9b..e832d94 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -187,14 +187,14 @@ variable hld
 : (words) ( lfa -- )  >nfa dup w@ swap 2 + swap say 2 spaces ;
 : words  latest @ begin ?dup 0<> while dup (words) @ repeat cr ;
 
-\ TODO causes segfault i think when switching back?
 : (evaluate) ( c-addr u -- )  0 >in ! ( u ) #tib ! ( c-addr ) tib ! interpret ;
 : evaluate ( c-addr u -- ) >r >r tib @ #tib @ >in @ r> r> (evaluate) >in ! #tib ! tib ! ;
 \ maybe the old TIB should be on retstack
 \ so stack undeflows don't fuck with INTERPRET
 
-\ : teststr3 s" 1 2 3 .s" ;
+: teststr3 s" 1 2 3 .s 2drop drop" ;
 \
-\ teststr3 evaluate
+teststr3 evaluate
 .free
+words
 bye