Initial import of l5c

[snipe.git] / codegen / stringifier.sml

diff --git a/codegen/stringifier.sml b/codegen/stringifier.sml
index 5010d7bc048d0b806491b2bec9dafb2092f79047..7ab1e896067557c65a0a10c6eee3b76955fe0a03 100644 (file)
--- a/codegen/stringifier.sml
+++ b/codegen/stringifier.sml
@@ -18,10 +18,10 @@ struct
   (* val stringify : asm -> string
    * turns a x86 instruction list into a string of assembly code for these instructions *)
 
-  fun stringify' rn (X.CALL (l, n)) = X.prettyprint (X.CALL ((Symbol.symbol (rn (Symbol.name l))), n))
-    | stringify' rn x = X.prettyprint x
+  fun stringify' rn (X.CALL (l, n)) = X.print (X.CALL ((Symbol.symbol (rn (Symbol.name l))), n))
+    | stringify' rn x = X.print x
 
   (* val stringify : asm -> string *)
-  fun stringify realname l = foldr (fn (a,b) => (stringify' realname a) ^ b) ("") l
+  fun stringify realname l = String.concat (List.map (stringify' realname) l)
 
 end