Fix type of sqrt

svn: r17273

original commit: a1f647121d84c02b9224b11500db5a2732db6087
This commit is contained in:
Sam Tobin-Hochstadt 2009-12-11 23:08:48 +00:00
parent 2669a3269a
commit e820082489

View File

@ -107,7 +107,7 @@
[rationalize (N N . -> . N)]
[expt (cl->* (-Integer -Integer . -> . -Integer) (N N . -> . N))]
[sqrt (cl->*
(-Real . -> . -Real)
(-Nat . -> . -Real)
(N . -> . N))]
[log (cl->*
(-Pos . -> . -Real)