@ -2,7 +2,7 @@
(require "lexer.rkt" brag/support rackunit)
(define (lex str)
(apply-lexer basic-lexer str))
(apply-port-proc basic-lexer str))
(check-equal? (lex "") empty)
(check-equal?