Fix type of sqrt

svn: r17273
This commit is contained in:
Sam Tobin-Hochstadt 2009-12-11 23:08:48 +00:00
parent d0c8a19ce8
commit a1f647121d

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)