summaryrefslogtreecommitdiff
path: root/primes.scm
diff options
context:
space:
mode:
authorIOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at>2016-05-17 12:21:04 +0200
committerIOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at>2016-05-17 12:21:04 +0200
commit248790aca5d5b6dc9a8edeea1abed0195ac1338e (patch)
treec473c68af2ab5d091d7035fa1b539cbaf2ac2e4f /primes.scm
parent110d59c341b8c50c04f30d90e85e9b8f6f329a0e (diff)
Imported Upstream version 16.5~dfsg
Diffstat (limited to 'primes.scm')
-rw-r--r--primes.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/primes.scm b/primes.scm
index e09b93e..c5d4437 100644
--- a/primes.scm
+++ b/primes.scm
@@ -4633,7 +4633,7 @@
(set! factors (cons p factors))
(set! num val)
(if (= num 1)
- (return (reverse factors)))))
+ (return))))
primes)))
(if (> num 1)
(call-with-exit
@@ -4645,7 +4645,7 @@
(set! factors (cons p factors))
(set! num val)
(if (= num 1)
- (return (reverse factors))))))))
+ (return)))))))
(reverse factors)))
;(factorize (* 76507 81299))