diff options
| author | kitty <nepeta@canaglie.net> | 2026-04-10 23:06:34 +1000 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-04-10 23:06:34 +1000 |
| commit | 62adb1da98c0a2186367e2ffb4eb8791153e7267 (patch) | |
| tree | 87dd5213de8a417635f7e8b7890e61b9cb56ccfa /sanctuary.fs | |
| parent | 09ef5055fd41b0e7383708ed939e4f49e354da83 (diff) | |
remove debug shit
Diffstat (limited to 'sanctuary.fs')
| -rw-r--r-- | sanctuary.fs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/sanctuary.fs b/sanctuary.fs index 9e4d56e..72dd439 100644 --- a/sanctuary.fs +++ b/sanctuary.fs @@ -283,14 +283,12 @@ privatise : save-input #tib @ cline-used ! >in @ cline->in ! ; : restore-input cline-used @ #tib ! cline->in @ >in ! cline tib ! ; -: dump-line cline cline-used @ type ; - : refill ( -- ? ) source-id 0< if false exit then 0 >in ! cline tib ! cline /line-buffer accept dup cline-used ! dup #tib ! - 0<> if true else false then .s ; + 0<> if true else false then ; : quit 0 to source-id postpone [ begin refill while interpret ( ." ok" cr ) repeat ; |