Also hier ist der Code:

(define (time-prime-test n)
  (newline)
  (display n)
  (start-prime-test n (runtime)))

(define (start-prime-test n start-time)
  (if (prime? n)
      (report-prime (- (runtime) start-time))))

(define (report-prime elapsed-time)
  (display " *** ")
  (display elapsed-time))

(define (search-for-primes n m)
  (if (< n m) 
      ((time-prime-test n)
       (search-for-primes (+ n 1) m))
      (display " calculating stopped. ")))
(search-for-primes 100000 100020)

und ich bekam diesen Fehler nach "Berechnung gestoppt". wurde angezeigt. Wie unten:

100017 100018 100019* 54 Berechnung gestoppt. . . Anwendung: kein Verfahren; erwartet eine Prozedur, die auf Argumente angewendet werden kann
gegeben: # <void>
Argumente...:
# <void>