Factor jEdit plugin!

[factor.git] / library / platform / native / unparser.factor

diff --git a/library/platform/native/unparser.factor b/library/platform/native/unparser.factor
index 881b450ea70dd7f9db105ecd910fdfd6ac11d036..27601bed06a80012900dffeb11ae2b9175471a39 100644 (file)
--- a/library/platform/native/unparser.factor
+++ b/library/platform/native/unparser.factor
@@ -60,6 +60,9 @@ USE: vocabularies
     denominator integer- integer%
     %> ;
 
+: unparse-complex ( num -- str )
+    >rect <% "#{ " % swap unparse % " " % unparse % " }" % %> ;
+
 : >base ( num radix -- string )
     #! Convert a number to a string in a certain base.
     <namespace> [ "base" set unparse-integer ] bind ;
@@ -113,6 +116,7 @@ USE: vocabularies
         [ integer? ] [ unparse-integer ]
         [ ratio?   ] [ unparse-ratio ]
         [ float?   ] [ unparse-float ]
+        [ complex? ] [ unparse-complex ]
         [ string?  ] [ unparse-str ]
         [ drop t   ] [ <% "#<" % class-of % ">" % %> ]
     ] cond ;