~ chicken-core (chicken-5) /tests/c-id-valid.scm

 1(import (chicken compiler support))
 2
 3(define +invalid-ids+
 4  '("-foo"
 5    "foo?"
 6    "7foo"
 7    "foo-bar"
 8    "ba!r"
 9    "foo$"))
10
11(for-each
12  (lambda (x)
13    (assert (not (valid-c-identifier? x)) "invalid C identifier" x))
14  +invalid-ids+)