From deb1ce7a9e44008608322bb1abd46bf3ca800440 Mon Sep 17 00:00:00 2001 From: kitty Date: Thu, 26 Feb 2026 20:34:31 +1100 Subject: shocking news: leaving shit on stack breaks program oops --- jefs.fs | 6 +++--- 1 file 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 -- cgit v1.2.3