diff options
Diffstat (limited to 'tree.icl')
-rw-r--r-- | tree.icl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -12,7 +12,7 @@ import SmurfParse import LaTeX Start w -# (_,f,w) = fopen "reverse.smf" FReadText w +# (_,f,w) = fopen "reverse-ward.smf" FReadText w # (pgm,f) = readFile f # (ok,w) = fclose f w # (Just pgm) = parse [c \\ c <-: pgm] @@ -20,7 +20,7 @@ Start w # tree = trace (toString tree +++ "\n") tree = toString (toLaTeX tree) where - devtree pgm = fromJust (tree pgm zero { zero & input = [Lit ""] } listIO) + devtree pgm = fromJust (tree pgm zero { zero & input = [Lit "xy"] } listIO) readFile :: !*File -> *(!String, !*File) readFile f |