--- a/lib/h2s/parse.scm +++ b/lib/h2s/parse.scm @@ -329,6 +329,8 @@ (#/^\}\s*([\w_]+)/ (#f name) (make-enum name (reverse enums))) ; -----> ;; empty line: (#/^\s*$/ () (loop (read-line) enums)) + ;; preprocessor directive: + (#/^\s*#\s*\w+/ () (loop (read-line) enums)) ;; (test has-comment? (skip-comment line (cut loop <> enums) err-eof)) ; what if?: new_value, /* boring comment*/ (#/\s+([\w_]+),?/ (#f enum)