From 4df084d3e2785412eb086fb02ac10be5def695d1 Mon Sep 17 00:00:00 2001 From: bd Date: Wed, 9 Apr 2025 09:28:22 -0400 Subject: Remove trivia --- src/parse.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src/parse.lisp') diff --git a/src/parse.lisp b/src/parse.lisp index bd50a23..37415c8 100644 --- a/src/parse.lisp +++ b/src/parse.lisp @@ -48,10 +48,11 @@ label, and pushed onto the stack with the line index. Note that this function is intended to be called using mapcar, so that labels can be added to a map and otherwise removed from processing." - (trivia:match line - ((list (type string) 'lex::colon) - (progn (push (cons (read-from-string (car line)) i) label-loc) nil)) - (_ (progn (incf i) line))))) + (if (and (equal 2 (length line)) + (stringp (car line)) + (equal 'lex::colon (cadr line))) + (progn (push (cons (read-from-string (car line)) i) label-loc) nil) + (progn (incf i) line)))) (defun extract-instruction (line i) "Given instruction LINE, determines the expected type format and passes -- cgit v1.2.3