added the scheme branch

2 files changed, 18 insertions, 0 deletions

diff --git a/examples/netsted.fype b/examples/netsted.fype
new file mode 100644
index 0000000..2ddf89f
--- /dev/null
+++ b/examples/netsted.fype
@@ -0,0 +1,11 @@
+(def (test)
+   (say "This is test")
+   (def (test2) 
+      (say "I am in test2" "And test3 will be defined next!")
+      (def (test3)
+         (say "Displaying all frames now:")
+         (show-frames))
+      (test3))
+   (test2))
+(test)
+
diff --git a/examples/reverse.fype b/examples/reverse.fype
new file mode 100644
index 0000000..a4384b6
--- /dev/null
+++ b/examples/reverse.fype
@@ -0,0 +1,7 @@
+(def (reverse x)
+	(def (my-reverse x y)
+		(if (null? x)
+		    	y
+		    	(my-reverse (cdr x) (cons (car x) y))))
+	(my-reverse x '()))
+(reverse (list 1 2 3))