diff --git a/collects/algol60/cfg-parser.rkt b/collects/algol60/cfg-parser.rkt index aa7438e..8309fb8 100644 --- a/collects/algol60/cfg-parser.rkt +++ b/collects/algol60/cfg-parser.rkt @@ -485,7 +485,7 @@ [(_ clause ...) (let ([clauses (syntax->list #'(clause ...))]) (let-values ([(start grammar cfg-error parser-clauses) - (let ([all-toks (apply + (let ([all-toks (apply append (map (lambda (clause) (syntax-case clause (tokens)