scope example

diff --git a/scm/example/scope.scm b/scm/example/scope.scm
new file mode 100644 (file)
index 0000000..10e37f0
--- /dev/null
+++ b/scm/example/scope.scm
@@ -0,0 +1,7 @@
+(module foo ()
+       (define (fact n)
+         (if (<= n 1)
+             1
+             (* n (fact (- n 1))))))
+;; scope
+(trace (foo.fact 10))