diff options
Diffstat (limited to 'tools/tpeak.scm')
-rw-r--r-- | tools/tpeak.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tools/tpeak.scm b/tools/tpeak.scm index 1aac941..a16b89e 100644 --- a/tools/tpeak.scm +++ b/tools/tpeak.scm @@ -1,5 +1,6 @@ -(if (not (provided? 'snd-peak-phases.scm)) (load "peak-phases.scm")) -(load "primes.scm") +(unless (provided? 'snd-peak-phases.scm) + (load "low-primes.scm") + (load "peak-phases.scm")) (define (get-best choice n) (let ((val (vector-ref (case choice |