Add type for xor
This commit is contained in:
parent
77e687579a
commit
2bc1528630
|
@ -250,7 +250,7 @@
|
||||||
[boolean=? (B B . -> . B)]
|
[boolean=? (B B . -> . B)]
|
||||||
[symbol=? (Sym Sym . -> . B)]
|
[symbol=? (Sym Sym . -> . B)]
|
||||||
[false? (make-pred-ty (-val #f))]
|
[false? (make-pred-ty (-val #f))]
|
||||||
|
[xor (-> Univ Univ Univ)]
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user