Thu Apr 30 17:13:49 CEST 2009

just cut & paste

i can't figure out how to abstract it: too many levels at once makes
my head hurt..

so let's first try to get the bugs out and then try again.

(macro-forth-begin : abc 1 + : def 1 +)
(define cfg (pic18-compile->cfg (list inline/abc inline/def)))
(print-target-word (car cfg))

This creates a CFG.

So it looks like the full circle works.. Now clean it up.