Note
Scheme 保证，当一个环境中存在两个同名的绑定时，新的绑定会覆盖旧的绑定。
比如说，定义一个名字 greet ，它的值为 hello ：
1 ]=> (define greet "hello")
;Value: greet
1 ]=> greet
;Value 11: "hello"
假如在之后，又定义另一个新的 greet 绑定，那么新的 greet 绑定就会覆盖旧的 greet 绑定：
1 ]=> (define greet "hello, my world!")
;Value: greet
1 ]=> greet
;Value 12: "hello, my world!"
这种『新绑定覆盖旧绑定』(简称『覆盖』)的效果非常实用，尤其是在需要对一个大程序进行小部分改动的时候。
比如说，有一个文件 func.scm ，里面有 a 、 b 、 c 、 d 四个函数，如果我们需要修改函数 b ，而且还要重用函数 a 、 c 和 d ，那么最简单的方法，就是用一个新文件，比如 new-func.scm ，先载入 func.scm ，然后进行新的函数 b 的定义：
;;; new-func.scm
(load "func.scm")
(define b ...)
这样就可以在作最少改动的前提下，最大限度地复用原有文件的代码。
对于像 练习 1.22 、 练习 1.23 和 练习 1.24 那样，需要增量地改进一个程序的时候，我们会经常用到覆盖。
要完成这个练习，我们需要：
next 函数next 函数重定义 find-divisor 函数find-divisor 覆盖原来 search-for-primes 所使用的 find-divisor ，并使用一个文件来包裹它们，方便测试时使用search-for-primes 进行测试，和原来的 search-for-primes 进行对比先来写出 next 函数：
;;; 23-next.scm
(define (next n)
(if (= n 2)
3
(+ n 2)))
next 函数接受参数 n ，如果 n 为 2 ，那么返回 3 ，否则返回 n+2 ：
1 ]=> (load "23-next.scm")
;Loading "23-next.scm"... done
;Value: next
1 ]=> (next 2)
;Value: 3
1 ]=> (next 3)
;Value: 5
1 ]=> (next 5)
;Value: 7
使用 next 函数，以及 divides? 函数，重定义 find-divisor 函数：
;;; 23-find-divisor.scm
(load "23-next.scm")
(load "p33-divides.scm")
(define (find-divisor n test-divisor)
(cond ((> (square test-divisor) n)
n)
((divides? test-divisor n)
test-divisor)
(else
(find-divisor n (next test-divisor))))) ; 将 next 应用到这
最后，用一个新的文件，先引入 练习 1.22 的 search-for-primes 函数，再引入新的 find-divisor 函数，覆盖原来旧的 find-divisor （小心不要弄错引入的顺序）：
;;; 23-search-for-primes.scm
(load "22-search-for-primes.scm")
(load "23-find-divisor.scm")
这个新文件并没有添加任何新内容，它只是分别载入两个文件，方便测试的时候使用而已。
来测试一下新的 search-for-primes ：
1 ]=> (load "23-search-for-primes.scm")
;Loading "23-search-for-primes.scm"...
; Loading "22-search-for-primes.scm"...
; Loading "22-continue-primes.scm"...
; Loading "p33-prime.scm"...
; Loading "p33-smallest-divisor.scm"...
; Loading "p33-divides.scm"... done
; Loading "p33-find-divisor.scm"... done
; ... done
; ... done
; Loading "22-next-odd.scm"... done
; ... done
; ... done
; Loading "23-find-divisor.scm"...
; Loading "p33-smallest-divisor.scm"...
; Loading "p33-divides.scm"... done
; Loading "p33-find-divisor.scm"... done
; ... done
; Loading "23-next.scm"... done
; ... done
;... done
;Value: find-divisor
1 ]=> (search-for-primes 1000) ; 一千
1009
1013
1019
are primes.
;Value: 1
1 ]=> (search-for-primes 10000) ; 一万
10007
10009
10037
are primes.
;Value: 1
1 ]=> (search-for-primes 100000) ; 十万
100003
100019
100043
are primes.
;Value: 2
1 ]=> (search-for-primes 1000000) ; 一百万
1000003
1000033
1000037
are primes.
;Value: 5
可以看到，比起原来 练习 1.22 的 search-for-primes 函数，新的 search-for-primes 的速度的确有所提升，但提升的速度并不是严格地按照书中所说的那样，按一倍的速度增长，关于这个问题， 练习 1.24 会进行详细的说明。
Note
这里并没有使用书本给出的 timed-primes-test 等几个程序来写 search-for-primes 函数，因为使用它们的话反而会使程序变得复杂起来，所以没有必要多此一举。