suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bitwise ops

Browse Source 
svn: r13850
This commit is contained in:
Eli Barzilay 2009-02-26 14:04:39 +00:00
parent 9df218784a
commit d10cdccca9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/typed-scheme/private/base-env.ss
View File

@ -395,10 +395,10 @@
[lcm (null -Integer . ->* . -Integer)] [lcm (null -Integer . ->* . -Integer)]
[arithmetic-shift (-Integer -Integer . -> . -Integer)] [arithmetic-shift (-Integer -Integer . -> . -Integer)]
[bitwise-and (null N . ->* . N)] [bitwise-and (null -Integer . ->* . -Integer)]
[bitwise-ior (null N . ->* . N)] [bitwise-ior (null -Integer . ->* . -Integer)]
[bitwise-not (null N . ->* . N)] [bitwise-not (null -Integer . ->* . -Integer)]
[bitwise-xor (null N . ->* . N)] [bitwise-xor (null -Integer . ->* . -Integer)]
[vector (-poly (a) (->* (list) a (-vec a)))] [vector (-poly (a) (->* (list) a (-vec a)))]
[make-string (cl-> [(-Integer) -String] [(-Integer -Char) -String])] [make-string (cl-> [(-Integer) -String] [(-Integer -Char) -String])]