Fix type of `-'

This commit is contained in:
Sam Tobin-Hochstadt 2010-12-08 19:28:56 -05:00
parent 36f6149a41
commit 463ab0d309

View File

@ -259,7 +259,7 @@
(list (->* (list -Real -Flonum) -Real -Flonum))
(list (->* (list -InexactReal) -InexactReal -InexactReal))
(list (->* (list -Real) -Real -Real))
(list (->* (list) (Un -Real -FloatComplex) -FloatComplex))
(list (->* (list (Un -Real -FloatComplex)) (Un -Real -FloatComplex) -FloatComplex))
(list (->* (list -FloatComplex) N -FloatComplex))
(list (->* (list N -FloatComplex) N -FloatComplex))
(list (->* (list N) N N))))]