Add line comments, started by ⍝

1 files changed, 3 insertions, 1 deletions

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])){