diff options
| -rw-r--r-- | sanctuary.fs | 4 | ||||
| -rw-r--r-- | sanctuary.s | 19 |
2 files changed, 1 insertions, 22 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 ; diff --git a/sanctuary.s b/sanctuary.s index b1544a9..6d70016 100644 --- a/sanctuary.s +++ b/sanctuary.s @@ -216,8 +216,6 @@ defcode "parse-name", parse_name, 0 pop rsi pspush rsi pspush r11 - ; call twodup - ; call intrpdump ret .empty: @@ -325,23 +323,6 @@ defdefer "find", find, 0 pspush r13 ret -; ; tmp dbg -; defcode "INTRPDUMP", intrpdump, 0 -; pspop rdx ; u -; pspop rsi ; a -; mov rdi, 1 -; mov rax, __NR_write -; syscall -; -; mov rdx, 1 -; mov rsi, .spc -; mov rdi, 1 -; mov rax, __NR_write -; syscall -; -; ret -; .spc: db " " - ; interpret {{{ ; r11: word found flag ; r12: state |