ompayne/sicp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove redudant workaround in apply-generic

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
2_78.rkt
View File

@ -137,15 +137,7 @@
(error "Can't coerce arguments to a common type" (error "Can't coerce arguments to a common type"
(list op type-tags)))) (list op type-tags))))
(error "No matching operator for args" op args))))) (error "No matching operator for args" op args)))))
(if (and (pair? result) 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)))
;; scheme-number is for reals only ;; scheme-number is for reals only
(define (scheme-number? x) (define (scheme-number? x)