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