conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

12
piclib/built-in.scm
View File

@ -314,18 +314,6 @@
;;; 6.2. Numbers ;;; 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) (define (min x . args)
(let loop ((pivot x) (rest args)) (let loop ((pivot x) (rest args))
(if (null? rest) (if (null? rest)