From 0c46b326b3079ce2acd21817dae7c0bbe0b8d617 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Wed, 22 Apr 2026 00:38:05 +1000
Subject: comment out old debug stuff

could delete, maybe i'll keep it commented just in case it's
ever useful
---
 sanctuary.fs |   2 +-
 sanctuary.s  | 100 +++++++++++++++++++++++++++++------------------------------
 2 files changed, 51 insertions(+), 51 deletions(-)

diff --git a/sanctuary.fs b/sanctuary.fs
index bfbf108..7d2c88d 100644
--- a/sanctuary.fs
+++ b/sanctuary.fs
@@ -591,7 +591,7 @@ decimal
 	until cr ;
 \ doesn't work when there are multiple vocabularies,
 \ for some reason the header of the last word is printed
-: words  get-order 0 ?do .s vlist loop ;
+: words  get-order 0 ?do vlist loop ;
 \ }}}
 
 \ todo doc
diff --git a/sanctuary.s b/sanctuary.s
index 1630e2b..3dcec3e 100644
--- a/sanctuary.s
+++ b/sanctuary.s
@@ -1250,56 +1250,56 @@ defcode "(defer)", dodefer, 0
 	jmp r12
 	; also no RET
 
-; TEMPORARY WONKY DEBUGGING FUNCTIONS {{{
-; .s {{{
-defcode ".s", dots, 0
-	push r11
-	push r12
-
-	mov r12, r15
-.loop:
-	cmp r12, wstk
-	jge .done
-
-	mov [.space], r12
-	mov rdx, 8 ; qword
-	mov rsi, .space
-	mov rdi, 1
-	mov rax, __NR_write
-	syscall
-
-	mov rdx, 8 ; qword
-	mov rsi, r12
-	mov rdi, 1
-	mov rax, __NR_write
-	syscall
-	lea r12, [r12+8]
-	jmp .loop
-
-.done:
-	mov rdx, 16 ; 2 qword
-	mov rsi, .dmsg
-	mov rdi, 1
-	mov rax, __NR_write
-	syscall
-
-	pop r12
-	pop r11
-	ret
-.space: resq 1
-.dmsg: db "DONEDONEYIPPEEEE"
-; }}}
-
-defcode "HEREDUMP", heredump, 0
-	mov rdx, [dp]
-	mov r11, [dp0]
-	sub rdx, r11
-	mov rsi, [dp0]
-	mov rdi, 1
-	mov rax, __NR_write
-	syscall
-	ret
-; }}}
+; ; TEMPORARY WONKY DEBUGGING FUNCTIONS {{{
+; ; .s {{{
+; defcode ".s", dots, 0
+; 	push r11
+; 	push r12
+;
+; 	mov r12, r15
+; .loop:
+; 	cmp r12, wstk
+; 	jge .done
+;
+; 	mov [.space], r12
+; 	mov rdx, 8 ; qword
+; 	mov rsi, .space
+; 	mov rdi, 1
+; 	mov rax, __NR_write
+; 	syscall
+;
+; 	mov rdx, 8 ; qword
+; 	mov rsi, r12
+; 	mov rdi, 1
+; 	mov rax, __NR_write
+; 	syscall
+; 	lea r12, [r12+8]
+; 	jmp .loop
+;
+; .done:
+; 	mov rdx, 16 ; 2 qword
+; 	mov rsi, .dmsg
+; 	mov rdi, 1
+; 	mov rax, __NR_write
+; 	syscall
+;
+; 	pop r12
+; 	pop r11
+; 	ret
+; .space: resq 1
+; .dmsg: db "DONEDONEYIPPEEEE"
+; ; }}}
+;
+; defcode "HEREDUMP", heredump, 0
+; 	mov rdx, [dp]
+; 	mov r11, [dp0]
+; 	sub rdx, r11
+; 	mov rsi, [dp0]
+; 	mov rdi, 1
+; 	mov rax, __NR_write
+; 	syscall
+; 	ret
+; ; }}}
 
 defvar "state", state, 0, INTERPRET
 defvar "base", base, 0, 10
-- 
cgit v1.2.3