X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/6ade8b0a3251e44b34c6bdbbd9403e36d6fd6231..1144856ba9d6018d9922c6ede7e97779a0fe6373:/codegen/stringifier.sml

diff --git a/codegen/stringifier.sml b/codegen/stringifier.sml
index 74fe8c1..5010d7b 100644
--- a/codegen/stringifier.sml
+++ b/codegen/stringifier.sml
@@ -18,8 +18,8 @@ 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.Long (X.CALL ((Symbol.symbol (rn (Symbol.name l))), n))
-    | stringify' rn x = X.prettyprint X.Long x
+  fun stringify' rn (X.CALL (l, n)) = X.prettyprint (X.CALL ((Symbol.symbol (rn (Symbol.name l))), n))
+    | stringify' rn x = X.prettyprint x
 
   (* val stringify : asm -> string *)
   fun stringify realname l = foldr (fn (a,b) => (stringify' realname a) ^ b) ("") l