#lang scheme/base (require (planet dherman/c:3:2) scheme/control scheme/pretty) (define (parse str) (prompt (pretty-print (parse-program (open-input-string str))))) (parse "typedef int (*fn) (int);") ;; OK (parse "typedef int (*fn) (int* x);") ;; OK (parse "typedef int (*fn) (int*);") ;; FAILS (parse "void foo(void) { solve(variables(x,y), a * x + b * y == q, x + y == r); }")