From 1c3236f2d9cf9bf2ec4a2c350a8224d476338a54 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sun, 28 May 2023 10:08:56 -0700
Subject: [PATCH] Added correct glyph for year day

---
 cli/arvelie/arvelie.tal | 4 ++--
 cli/arvelie/build.sh    | 3 ---
 2 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/cli/arvelie/arvelie.tal b/cli/arvelie/arvelie.tal
index f0e4d17..f13f8c5 100644
--- a/cli/arvelie/arvelie.tal
+++ b/cli/arvelie/arvelie.tal
@@ -75,13 +75,13 @@ JMP2r
 		INC GTHk ?&l
 	&end
 	NIP INC emit-dec [ LIT2 "- 18 ] DEO
-	STHr POPr
+	STHr POPr INC
 !emit-dec
 
 @emit-arv ( doty* year* -- )
 	#07e0 SUB2 NIP
 	( year ) emit-dec
-	( month ) DUP2 #000e DIV2 NIP #11 ADD emit-num
+	( month ) DUP2 #000e DIV2 NIP #11 ADD [ DUP #2a GTH #30 MUL SUB ] emit-num
 	( digit3 ) #000e [ DIV2k MUL2 SUB2 ] NIP
 !emit-dec
 
diff --git a/cli/arvelie/build.sh b/cli/arvelie/build.sh
index 390a013..94c3952 100755
--- a/cli/arvelie/build.sh
+++ b/cli/arvelie/build.sh
@@ -25,7 +25,4 @@ printf "today    "; $EMU $DST
 printf "gre->arv "; $EMU $DST "2023-05-25"
 printf "arv->gre "; $EMU $DST "17K04"
 printf "error    "; $EMU $DST "abc"
-echo ""
-printf "00A00      -> "; $EMU $DST "2016-01-01"
-printf "01B00      -> "; $EMU $DST "2017-01-15"