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+)
15