Force logical order of output in cli

1 files changed, 20 insertions, 20 deletions

diff --git a/sil.icl b/sil.icl
index 0069fdb..945faaa 100644
--- a/sil.icl
+++ b/sil.icl
@@ -51,53 +51,53 @@ where
 		}
 
 Start w
-# (io,w) = stdio w
-# err = stderr
-# (cmd,w)  = getCommandLine w
-# (args,_) = runParser (arg until eof) $ makeParseState $ map PI_Token $ tl cmd
+#! (io,w) = stdio w
+#! err = stderr
+#! (cmd,w)  = getCommandLine w
+#! (args,_) = runParser (arg until eof) $ makeParseState $ map PI_Token $ tl cmd
 | isError args
 	# err = err <<< toString (fromError args) <<< "\r\n"
 	= finish 1 io err w
-# args = seq (fromOk args) zero
-# (file,w) = readFile args.inputfile w
+#! args = seq (fromOk args) zero
+#! (file,w) = readFile args.inputfile w
 | isError file
 	# err = err <<< "Could not open '" <<< args.inputfile <<< "' for reading.\r\n"
 	= finish 1 io err w
-# prog = tokenise (fromString $ fromOk file) >>= parse
+#! prog = tokenise (fromString $ fromOk file) >>= parse
 | isError prog
 	# err = err <<< toString (fromError prog) <<< "\r\n"
 	= finish 1 io err w
-# prog = fromOk prog
-# io = if args.prettyprint
+#! prog = fromOk prog
+#! io = if args.prettyprint
 	(io <<< print zero prog <<< "\r\n")
 	io
-# (errs, err) = if args.check
+#! (errs, err) = if args.check
 	(appSnd fromJust $ checkProgram (Just err) prog)
 	([], err)
 | not (isEmpty errs)
 	= finish 1 io err w
 | not args.compile
 	= finish 0 io err w
-# (ok,f,w) = fopen "sil_compiled.dcl" FWriteText w
+#! (ok,f,w) = fopen "sil_compiled.dcl" FWriteText w
 | not ok
 	# err = err <<< "Could not open 'sil_compiled.dcl' for writing\r\n"
 	= finish 1 io err w
-# f = f <<< "definition module sil_compiled"
-# (_,w) = fclose f w
-# (_,w) = sleep 1 w
-# (ok,f,w) = fopen "Clean System Files/sil_compiled.abc" FWriteText w
+#! f = f <<< "definition module sil_compiled"
+#! (_,w) = fclose f w
+#! (_,w) = sleep 1 w
+#! (ok,f,w) = fopen "Clean System Files/sil_compiled.abc" FWriteText w
 | not ok
 	# err = err <<< "Could not open 'sil_compiled.abc' for writing\r\n"
 	= finish 1 io err w
-# prog = 'SC'.compile prog
+#! prog = 'SC'.compile prog
 | isError prog
 	# err = err <<< fromError prog
 	= finish 1 io err w
-# f = f <<< fromOk prog
-# (_,w) = fclose f w
+#! f = f <<< fromOk prog
+#! (_,w) = fclose f w
 | not args.generate
 	= finish 0 io err w
-# (p,w) = callProcess "/opt/clean/bin/clm" ["-l", "-no-pie", "sil_compiled", "-o", "sil_compiled"] Nothing w
+#! (p,w) = callProcess "/opt/clean/bin/clm" ["-l", "-no-pie", "sil_compiled", "-o", "sil_compiled"] Nothing w
 | isError p
 	# err = err <<< snd (fromError p) <<< "\r\n"
 	= finish 1 io err w
@@ -105,7 +105,7 @@ Start w
 	= finish (fromOk p) io err w
 | not args.run
 	= finish 0 io err w
-# (p,w) = callProcess "./sil_compiled" [] Nothing w
+#! (p,w) = callProcess "./sil_compiled" [] Nothing w
 | isError p
 	# err = err <<< snd (fromError p) <<< "\r\n"
 	= finish 1 io err w