From b652e0d3d0e102b5e06624d85ddd1637416e65e3 Mon Sep 17 00:00:00 2001 From: Oliver Payne Date: Sun, 3 Apr 2022 21:58:09 +0100 Subject: [PATCH] Remove redudant workaround in apply-generic --- 2_78.rkt | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/2_78.rkt b/2_78.rkt index ea278cf..9f89604 100644 --- a/2_78.rkt +++ b/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)