More precise type for expt.

original commit: 0a45e0e361d811ac07440fb24d415502d191583c
This commit is contained in:
Vincent St-Amour 2010-08-06 11:09:04 -04:00
parent 019ea62c25
commit b9ef6ec241

View File

@ -397,6 +397,7 @@
(-Real -Real . -> . N))]
[expt (cl->* (-Nat -Nat . -> . -Nat)
(-Integer -Nat . -> . -Integer)
(-Integer -Integer . -> . -ExactRational)
(-Real -Integer . -> . -Real)
(-InexactComplex -InexactComplex . -> . -InexactComplex)
(N N . -> . N))]