Add type for xor

This commit is contained in:
Asumu Takikawa 2012-12-10 15:44:46 -05:00
parent 77e687579a
commit 2bc1528630

View File

@ -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)]