Remove trivia

1 files changed, 5 insertions, 4 deletions

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