complex numbers in native factor, all of test suite except html and httpd tests runs...

[factor.git] / library / platform / native / parse-syntax.factor

diff --git a/library/platform/native/parse-syntax.factor b/library/platform/native/parse-syntax.factor
index bfb66c52b20e49ab173e02bde5ad1d1e4fabd807..f08b376601346f4c8fad2f9de7904fa25763a485 100644 (file)
--- a/library/platform/native/parse-syntax.factor
+++ b/library/platform/native/parse-syntax.factor
@@ -134,6 +134,11 @@ USE: unparser
 ! Char literal
 : CHAR: ( -- ) skip-blank next-ch parse-ch parsed ; parsing
 
+! Complex literal
+: #{
+    #! Read #{ real imaginary #}
+    scan str>number scan str>number rect> parsed "}" expect ;
+
 ! Comments
 : ( ")" until drop ; parsing
 : ! until-eol drop ; parsing