summaryrefslogtreecommitdiff
path: root/examples/synonyms.fy
diff options
context:
space:
mode:
authoradmin (centauri.fritz.box) <puppet@mx.buetow.org>2014-06-30 23:53:04 +0200
committeradmin (centauri.fritz.box) <puppet@mx.buetow.org>2014-06-30 23:53:04 +0200
commitadc4b59a3e7c9db6f33670164490830d87331228 (patch)
treeadc5d21856852bfb5c3cca794a9c07ad476d877e /examples/synonyms.fy
parent63cf3028445d8d213ffc774f77aafd7283cb4fbd (diff)
parent5ab5de91eb0ae6ed9db78a2c8c47ec67f105e504 (diff)
Diffstat (limited to 'examples/synonyms.fy')
-rw-r--r--examples/synonyms.fy37
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;
-