From 62adb1da98c0a2186367e2ffb4eb8791153e7267 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Fri, 10 Apr 2026 23:06:34 +1000
Subject: remove debug shit

---
 sanctuary.fs |  4 +---
 sanctuary.s  | 19 -------------------
 2 files changed, 1 insertion(+), 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
-- 
cgit v1.2.3