math.complex: move malformed-complex and parse-complex to math.complex.

They were incorrectly defined in syntax vocabulary.
master
John Benediktsson 2020-09-15 13:24:17 -07:00
parent 115b7b62df
commit bc0789ca91
1 changed files with 3 additions and 2 deletions

View File

@ -33,13 +33,13 @@ M: complex sqrt >polar [ sqrt ] [ 2.0 / ] bi* polar> ; inline
PRIVATE>
IN: syntax
ERROR: malformed-complex obj ;
: parse-complex ( seq -- complex )
dup length 2 = [ first2-unsafe rect> ] [ malformed-complex ] if ;
IN: syntax
SYNTAX: C{ \ } [ parse-complex ] parse-literal ;
USE: prettyprint.custom
@ -47,3 +47,4 @@ USE: prettyprint.custom
M: complex pprint* pprint-object ;
M: complex pprint-delims drop \ C{ \ } ;
M: complex >pprint-sequence >rect 2array ;