From 4f57c9aa1f319f093512d81c80ae6fe373e2bc4a Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Wed, 12 Jan 2022 18:48:37 +0000
Subject: =?UTF-8?q?Add=20line=20comments,=20started=20by=20=E2=8D=9D?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lexer.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lexer.c b/lexer.c
index d269e11..36000c8 100644
--- a/lexer.c
+++ b/lexer.c
@@ -23,7 +23,7 @@ lexline(Rune *line, Symtab *symtab)
 		if(isspacerune(line[offset])){
 			offset++;
 			continue;
-		}else if(runestrchr(L"(){}[]←⋄", line[offset])){
+		}else if(runestrchr(L"(){}[]←⋄⍝", line[offset])){
 			switch(line[offset]){
 			case '(': stmt->toks[stmt->ntoks].tag = LParTag; break;
 			case ')': stmt->toks[stmt->ntoks].tag = RParTag; break;
@@ -35,6 +35,8 @@ lexline(Rune *line, Symtab *symtab)
 			case L'⋄':
 				stmt->next = lexline(&line[offset+1], symtab);
 				goto end;
+			case L'⍝':
+				goto end;
 			}
 			offset++;
 		}else if(p = runestrchr(primfuncnames, line[offset])){
-- 
cgit v1.2.3