summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorPaul Buetow <paul@buetow.org>2008-10-27 06:52:06 +0000
committerPaul Buetow <paul@buetow.org>2008-10-27 06:52:06 +0000
commit74576665ff39879f04e50ad6887a2178f42722c3 (patch)
treed4e7c61e0c6f8b00e6dadf430803933141432605 /examples
parenta1c3f47491b98cd9026f8e853cc9e72630805c12 (diff)
Diffstat (limited to 'examples')
-rw-r--r--examples/all-examples.txt9
1 files changed, 9 insertions, 0 deletions
diff --git a/examples/all-examples.txt b/examples/all-examples.txt
index b438de3..f71e8a2 100644
--- a/examples/all-examples.txt
+++ b/examples/all-examples.txt
@@ -283,6 +283,10 @@ my foo = 1;
# Prints out 1
assert 1 == (put defined bar);
+
+ # Prints out all available symbols at
+ # the current program position.
+ scope;
}
# Prints out 0
@@ -317,7 +321,12 @@ proc 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"