needs lib/str lib/fmt mem/arena \
      comp/c/tok comp/c/pp comp/c/type comp/c/stmt
unit comp/c

: :c cctok$ cparse ;
: _ begin ( ) ?tok< while tokstepback cparse repeat ;
: cc<< cctok$ word dup curfile! NEXTWORD ! ['] _ exec<< ;