From 24b7423c2384d33dd6ae8d2cf5e8966030b145ad Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Sun, 6 Aug 2023 16:03:37 -0700
Subject: [PATCH] Renamed qerror to halt

---
 src/drifblim.tal | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/drifblim.tal b/src/drifblim.tal
index ff09f1b..76eb7b8 100644
--- a/src/drifblim.tal
+++ b/src/drifblim.tal
@@ -5,10 +5,10 @@
 
 |0000
 
+	@halt $1
 	@scan $1
 	@head $2
 	@length $2
-	@qerror $1
 	@src $1 &buf $30
 	@dst $1 &buf $30
 	@token $1 &buf $30
@@ -35,7 +35,7 @@
 	&await-dst ( -> )
 		.Console/read DEI .dst zkey ?{ BRK }
 		<assemble>
-		[ LIT2 80 -qerror ] LDZ ORA #0f DEO
+		[ LIT2 80 -halt ] LDZ ORA #0f DEO
 		BRK
 
 @on-interactive ( c -> )
@@ -62,7 +62,7 @@
 	( | clear memory )
 	;<create-symbol>/ptr LDA2 ;memory <mclr>
 	( | cleanup cache )
-	[ LIT2 00 -qerror ] STZ
+	[ LIT2 00 -halt ] STZ
 	;memory/symbols ;<create-symbol>/ptr STA2
 	#0000 ;<create-symbol>/count STA2
 	( scan pass ) #01 handle-top ?&when-error
@@ -77,7 +77,7 @@
 	#0100 <set-head>
 	#00 ;lambda/count STA
 	;dict/reset <set-scope>
-	;src/buf handle-file .qerror LDZ JMP2r
+	;src/buf handle-file .halt LDZ JMP2r
 
 @handle-file ( f* -- )
 	.File/name DEO2
@@ -202,7 +202,7 @@
 
 @<set-error> ( name* -- )
 	<print-error>
-	[ LIT2 01 -qerror ] STZ
+	[ LIT2 01 -halt ] STZ
 	JMP2r
 
 @record-length ( byte -- )
-- 
2.45.2