From e9f81d1d896c8c463c13fc7ae94e97d6009cbd3a Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sat, 10 Aug 2024 13:04:57 -0700
Subject: [PATCH] Fixed linter warnings

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

diff --git a/src/drifblim.tal b/src/drifblim.tal
index 521fad5..c326d1e 100644
--- a/src/drifblim.tal
+++ b/src/drifblim.tal
@@ -216,7 +216,7 @@
 
 @refs/resolve-sym ( ref* -- ref* addr* )
 	( sym* ) INC2k INC2 LDA2
-	( sym->addr* ) LDA2k DUP2 #ffff NEQ2 ?{
+	( sym->addr* ) LDA2k INC2k ORA ?{
 		OVR2 #0003 ADD2 ;err/reference <set-error-scope> }
 	( | sym* addr* )
 	NIP2 JMP2r
@@ -238,7 +238,7 @@
 
 @refs/get-rel-byte ( label* -- distance )
 	.RefType/rel-byte ;get-ref/type STA
-	get-ref DUP2 #ffff NEQ2 ?{
+	get-ref INC2k ORA ?{
 		( undefined ) POP2 #00 JMP2r }
 	.rom/head LDZ2 INC2 INC2 SUB2
 	( | check distance )
@@ -304,14 +304,14 @@
 	#0003 SUB2 NIP2 JMP2r
 
 @syms/find-alloc ( name* -- addr* )
-	DUP2 /find DUP2 #ffff NEQ2 ?{
+	DUP2 /find INC2k ORA ?{
 		( null* -> ptr* ) POP2 ,&&ptr LDR2
 		( alloc ) OVR2 .SymType/used #ffff /<push> }
 	NIP2 JMP2r
 
 @syms/<create> ( name* -- )
 	DUP2 /find INC2k ORA ?{
-		( alloc ) POP2 .SymType/declared .rom/head LDZ2 !/<push> }
+		( alloc ) POP2 [ LIT2 -SymType/declared -rom/head ] LDZ2 !/<push> }
 	( | name* sym* -- )
 	INC2k INC2 LDA .SymType/declared AND ?{
 		( addr* ) .rom/head LDZ2 OVR2 STA2