From f05d7c43c216a770707a7f2d71ec75d5bb8c9828 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Tue, 5 Sep 2023 19:04:25 -0700
Subject: [PATCH] (base64) Fixed leak

---
 cli/base64/b64enc.tal | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/cli/base64/b64enc.tal b/cli/base64/b64enc.tal
index 67033ac..ed23cef 100644
--- a/cli/base64/b64enc.tal
+++ b/cli/base64/b64enc.tal
@@ -1,4 +1,4 @@
-( uxncli b64enc.rom "string" )
+( uxncli b64enc.rom data )
 
 |10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
 
@@ -15,7 +15,7 @@
 @on-console ( -> )
 	.Console/read DEI DUP ?{
 		&terminate ( -> )
-			.queue LDZ #00 EQU ?{ #00 <b64enc> }
+			.queue LDZ EQU ?{ #00 <b64enc> }
 			#800f DEO
 			BRK }
 		<b64enc>
@@ -29,20 +29,20 @@
 	,&buf STR
 	#0800
 	&l ( -- )
-		( ) [ LIT &buf $1 ] OVR #07 SWP SUB SFT #01 AND
-		( ) [ LIT &inc $1 ] INCk #06 DIVk MUL SUB ,&inc STR
-		( | bit id -- )
+		[ LIT &buf $1 ] OVR #07 SWP SUB SFT #01 AND
+		[ LIT &inc $1 ] INCk #06 DIVk MUL SUB ,&inc STR
+		( bit id -- )
 		SWP .queue LDZ ORA DUP ADD .queue STZ
 		#05 NEQ ?{
 			[ LIT2 00 -queue ]
-			( ) DUP2 LDZ #01 SFT ;MIME ADD2 LDA #18 DEO
-			( ) STZ }
+				DUP2 LDZ #01 SFT ;MIME ADD2 LDA #18 DEO
+				STZ }
 		INC GTHk ?&l
 	POP2 JMP2r
 
 @MIME [
 	"ABCDEFGHIJKLMNOP
-	"QRSTUVWXYZabcdef 
-	"ghijklmnopqrstuv 
+	"QRSTUVWXYZabcdef
+	"ghijklmnopqrstuv
 	"wxyz0123456789+/ ]