Fixed type in member test, it was too wide.
This commit is contained in:
parent
b1fd426803
commit
1bccd17a37
|
@ -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])
|
||||
|
|
Loading…
Reference in New Issue
Block a user