Added load primitive.

[scheme.forth.jl.git] / fact.scm

diff --git a/fact.scm b/fact.scm
deleted file mode 100644 (file)
index 0991511..0000000
--- a/fact.scm
+++ /dev/null
@@ -1,8 +0,0 @@
-; Demo scheme source file.
-
-(define (fact n)
-       (if (= n 0)
-               1
-               (* n (fact (- n 1)))))
-
-; Done!