Remove redudant workaround in apply-generic
This commit is contained in:
parent
3ec8012338
commit
b652e0d3d0
10
2_78.rkt
10
2_78.rkt
|
@ -137,15 +137,7 @@
|
|||
(error "Can't coerce arguments to a common type"
|
||||
(list op type-tags))))
|
||||
(error "No matching operator for args" op args)))))
|
||||
(if (and (pair? result)
|
||||
(not (or (eq? op 'raise)
|
||||
(eq? op 'project)
|
||||
(eq? op 'real-part)
|
||||
(eq? op 'imag-part)
|
||||
(eq? op 'angle)
|
||||
(eq? op 'magnitude))))
|
||||
(drop result)
|
||||
result)))
|
||||
result))
|
||||
|
||||
;; scheme-number is for reals only
|
||||
(define (scheme-number? x)
|
||||
|
|
Loading…
Reference in New Issue