primitive overridings may cause circular reference at the stage of

variable renaming
This commit is contained in:
Yuichi Nishiwaki 2013-11-27 13:52:16 +09:00
parent 73831283b6
commit 0f127917e8
1 changed files with 0 additions and 12 deletions

View File

@ -314,18 +314,6 @@
;;; 6.2. Numbers
(define (+ . args)
(do ((acc 0)
(nums args (cdr nums)))
((pair? nums) acc)
(set! acc (+ acc (car nums)))))
(define (* . args)
(do ((acc 1)
(nums args (cdr nums)))
((pair? nums) acc)
(set! acc (* acc (car nums)))))
(define (min x . args)
(let loop ((pivot x) (rest args))
(if (null? rest)