Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (7 sloc) 206 Bytes
(define (install-polynomial-package)
;; ...
(put '=zero? 'polynomial
(lambda(poly)
(or (empty-termlist? (term-list poly))
(= 0 (first-term (coeff (term-list poly)))))))
'done)