From 74576665ff39879f04e50ad6887a2178f42722c3 Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Mon, 27 Oct 2008 06:52:06 +0000 Subject: --- examples/all-examples.txt | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'examples') 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" -- cgit v1.2.3