fix parser bug with [ 1 | #{ 1 2 } ]

library/platform/native/parse-syntax.factor

@@ -157,7 +157,7 @@ USE: unparser
 ! Complex literal
 : #{
     #! Read #{ real imaginary #}
-    scan str>number scan str>number rect> parsed "}" expect ;
+    scan str>number scan str>number rect> "}" expect parsed ;
 
 ! Comments
 : doc-comment-here? ( parsed -- ? )

library/test/parser.factor

@@ -3,6 +3,7 @@ USE: combinators
 USE: parser
 USE: test
 USE: unparser
+USE: lists
 
 [ [ 1 [ 2 [ 3 ] 4 ] 5 ] ]
 [ "1\n[\n2\n[\n3\n]\n4\n]\n5" ]
@@ -50,3 +51,9 @@ test-word
 [ "\"\\u0027\"" ]
 [ parse ]
 test-word
+
+! Test improper lists
+
+[ 2 ] [ "[ 1 | 2 ]" parse car cdr ] unit-test
+[ "hello" ] [ "[ 1 | \"hello\" ]" parse car cdr ] unit-test
+[ #{ 1 2 } ] [ "[ 1 | #{ 1 2 } ]" parse car cdr ] unit-test