diff options
| author | Paul Buetow <paul@buetow.org> | 2010-05-09 09:43:11 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2010-05-09 09:43:11 +0000 |
| commit | b16caaa631ac8143c021c99fb16ce96cf69ead91 (patch) | |
| tree | c07690651871a929583fb858360a72f20c3e1a1e /examples | |
| parent | 38fee5e1e07acb428eba8974483bcdf262dcd89d (diff) | |
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/netsted.fype | 11 | ||||
| -rw-r--r-- | examples/reverse.fype | 7 |
2 files changed, 0 insertions, 18 deletions
diff --git a/examples/netsted.fype b/examples/netsted.fype deleted file mode 100644 index 2ddf89f..0000000 --- a/examples/netsted.fype +++ /dev/null @@ -1,11 +0,0 @@ -(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 deleted file mode 100644 index a4384b6..0000000 --- a/examples/reverse.fype +++ /dev/null @@ -1,7 +0,0 @@ -(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)) |