Fixed type in member test, it was too wide.

This commit is contained in:
Georges Dupéron 2015-10-30 14:29:55 +01:00
parent b1fd426803
commit 1bccd17a37

View File

@ -2377,7 +2377,8 @@
(lambda: ([s1 : (U Number Symbol String)] [s2 : Symbol])
(= (string-length (format "~a" s1))
(string-length (symbol->string s2)))))
(t:Un (-val #f) (-lst (one-of/c 'a 'b 'c)))]
(t:Un (-val #f)
(-pair (one-of/c 'a 'b 'c) (-lst (one-of/c 'a 'b 'c))))]
[tc-e (assoc 3
'((a . #(a)) (b . #(b)) (c . #(c)))
(lambda: ([s1 : (U Number Symbol String)] [s2 : String])