diff options
| author | Paul Buetow <paul@buetow.org> | 2008-10-27 06:52:06 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2008-10-27 06:52:06 +0000 |
| commit | 74576665ff39879f04e50ad6887a2178f42722c3 (patch) | |
| tree | d4e7c61e0c6f8b00e6dadf430803933141432605 /examples | |
| parent | a1c3f47491b98cd9026f8e853cc9e72630805c12 (diff) | |
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/all-examples.txt | 9 |
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" |
