summaryrefslogtreecommitdiff
path: root/module/ice-9/debugging/example-fns.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/debugging/example-fns.scm')
-rw-r--r--module/ice-9/debugging/example-fns.scm17
1 files changed, 0 insertions, 17 deletions
diff --git a/module/ice-9/debugging/example-fns.scm b/module/ice-9/debugging/example-fns.scm
deleted file mode 100644
index 30d412f00..000000000
--- a/module/ice-9/debugging/example-fns.scm
+++ /dev/null
@@ -1,17 +0,0 @@
-(define-module (ice-9 debugging example-fns)
- #:export (fact1 fact2 facti))
-
-(define (fact1 n)
- (if (= n 0)
- 1
- (* n (fact1 (- n 1)))))
-
-(define (facti n a)
- (if (= n 0)
- a
- (facti (- n 1) (* a n))))
-
-(define (fact2 n)
- (facti n 1))
-
-; Test: (fact2 3)