*** empty log message ***

original commit: 207973ce38a2d3b4304f72fc96467f46638cc9fe
21 years ago · 81d49eda64
parent 7b918d0164
commit 81d49eda64
1 changed files with 1 additions and 1 deletions
--- a/collects/parser-tools/lex.ss
+++ b/collects/parser-tools/lex.ss
@ -53,7 +53,7 @@
                                      (trans-table-stx trans)
                                      (no-lookahead-stx no-look)
                                      (actions-stx `(vector ,@(map (lambda (a)
-                                                                     (wrap-action a 'lexeme #'here a))
+                                                                     (if a (wrap-action a 'lexeme #'here a) #f))
                                                                   (vector->list actions))))
                                      (spec-act-stx
                                       (wrap-action spec-act 'special #'here spec-act))