diff options
| author | Paul Buetow <paul@buetow.org> | 2010-05-12 20:28:06 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2010-05-12 20:28:06 +0000 |
| commit | 3e452b027838fb8114c226667dcab04c9121f61b (patch) | |
| tree | d9fc06ec69b3a5b02b1261971698547a109356f0 /examples/synonyms.fy | |
| parent | e3414345f18156200a2ac8ee055aacff7909e2ce (diff) | |
| parent | 0b7e31f8586a8237297f29793169b3eb27842f46 (diff) | |
lambda is the new trunk
Diffstat (limited to 'examples/synonyms.fy')
| -rw-r--r-- | examples/synonyms.fy | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/examples/synonyms.fy b/examples/synonyms.fy deleted file mode 100644 index 0dd30f5..0000000 --- a/examples/synonyms.fy +++ /dev/null @@ -1,37 +0,0 @@ -#* - * Examples of how to use synonyms - *# - -# Create a variable foo, and bar is a synonym for foo -my foo = "foo"; -my bar = \foo; - -# Reset the value of foo -foo = "bar"; - -# The synonym variable should now also set to "bar" -assert "bar" == say bar; - -# Create a new procedure baz -proc baz { - say "I am baz"; -} - -# Make a synonym baz, and undefine baz -my bay = \baz; - -# Should be the num of syms for the same value -assert 2 == syms baz; -assert 2 == syms bay; -undef baz; -assert 1 == syms bay; - -# bay still has a reference of the original procedure baz -bay; # this prints aut "I am baz" - -assert 0 == defined baz; -assert 1 == defined bay; - -# This removes the procedure from memory -undef bay; - |
