From 0d138b5beea67bc78fffa09ed3c53e0e34ca0bf0 Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Mon, 11 Apr 2022 22:03:24 -0400
Subject: [PATCH] fix a bug with caret

---
 regex.tal | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/regex.tal b/regex.tal
index 7ce98df..c428c57 100644
--- a/regex.tal
+++ b/regex.tal
@@ -212,7 +212,7 @@
     INC2 LDA2 STH2                              ( load and stash next )
     DUP2 ;string-start LDA2 EQU2 ,&at-start JCN ( at string start? )
     ;match-multiline LDA ,&no-match JCN         ( are we in multi-line mode? )
-    #0001 SUB2 LDAk #0a EQU ,&at-start JCN      ( just after newline? )
+    DUP2 #0001 SUB2 LDA #0a EQU ,&at-start JCN      ( just after newline? )
     &no-match POP2r POP2 ;goto-backtrack JMP2   ( clear stacks and backtrack )
     &at-start STH2r ;goto-next JMP2             ( go to next without advancing )