Remove redudant workaround in apply-generic

This commit is contained in:
Oliver Payne 2022-04-03 21:58:09 +01:00
parent 3ec8012338
commit b652e0d3d0
1 changed files with 1 additions and 9 deletions

View File

@ -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)