diff options
| author | kitty <nepeta@canaglie.net> | 2026-02-26 19:45:03 +1100 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-02-26 19:45:03 +1100 |
| commit | a779cd8b6318185015bc8ca6339ae02d37ca5b65 (patch) | |
| tree | 236935d975af13d0b7075cf5180542b1099ffc84 /jefs.fs | |
| parent | 68df791b4b1dd5f45dc4b957c9bfd0aa68ee39dc (diff) | |
comment out for later
not sure what teh issue is here yet
Diffstat (limited to 'jefs.fs')
| -rw-r--r-- | jefs.fs | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -182,10 +182,14 @@ variable hld : (words) ( lfa -- ) >nfa dup w@ swap 2 + swap say 2 spaces ; : words latest @ begin ?dup 0<> while dup (words) @ repeat cr ; -: (evaluate) ( c-addr u -- ) .s 0 >in ! ( u ) #tib ! ( c-addr ) tib ! interpret ; +\ 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" .s ; - +\ : teststr3 s" 1 2 3 .s" ; +\ +\ teststr3 evaluate .free bye |