*** empty log message ***

original commit: 3111c3253691034bc7f527ab5f7bed01047303e1

collects/parser-tools/lex.ss

@@ -184,10 +184,9 @@
   (define id (lambda (x) x))
 
   (define (do-match lb first-pos longest-match-length length longest-match-action wrap?)
-    (if (not longest-match-action)
+    (unless longest-match-action
       (let* ((match (read-string length lb))
 	     (end-pos (get-position lb)))
-	  (if (not longest-match-action)
 	(raise-read-error
 	 (format "lexer: No match found in input starting with: ~a" match)
 	 (file-path)
@@ -214,7 +213,7 @@
 	 end-pos
 	 match
 	 id
-	     lb))))))
+	 lb)))))
   
   
   (define-struct position (offset line col))