Fix some nasty bugs with empty lines in dfns, and with stranding of ⍺ and ⍵.

1 files changed, 7 insertions, 1 deletions

diff --git a/lexer.c b/lexer.c
index 4e9a4e4..9ce251a 100644
--- a/lexer.c
+++ b/lexer.c
@@ -72,8 +72,14 @@ lexline(InputStream *input, int toplevel)
 			case L'⋄':
 				if(stmt->ntoks == 0)
 					stmt = lexline(input, toplevel);
-				else
+				else{
 					stmt->next = lexline(input, toplevel);
+					if(stmt->next && stmt->next->ntoks == 0){ // Prevent empty statements
+						freestatement(*(stmt->next));
+						free(stmt->next);
+						stmt->next = nil;
+					}
+				}
 				goto end;
 			case L'⍝':
 				while(peek != '\n' && !inputEOF(input))