From 0f127917e87c5051c6116aab0f2e9ccba49c62d9 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Wed, 27 Nov 2013 13:52:16 +0900 Subject: [PATCH] primitive overridings may cause circular reference at the stage of variable renaming --- piclib/built-in.scm | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/piclib/built-in.scm b/piclib/built-in.scm index ca27563d..23392f82 100644 --- a/piclib/built-in.scm +++ b/piclib/built-in.scm @@ -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)