diff options
| author | Paul Buetow <paul@buetow.org> | 2008-10-19 17:48:21 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2008-10-19 17:48:21 +0000 |
| commit | 3d7b35bb37c066489546751e100c2c2b823ccba3 (patch) | |
| tree | a507be11afc3c55807e254ce5b24c5412367aa46 /examples/synonyms.fy | |
| parent | d4657a5d7029ea66d19a5d238a9dd6bf75fe5bb0 (diff) | |
refs and syms
Diffstat (limited to 'examples/synonyms.fy')
| -rw-r--r-- | examples/synonyms.fy | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/examples/synonyms.fy b/examples/synonyms.fy index 3ffb105..0dd30f5 100644 --- a/examples/synonyms.fy +++ b/examples/synonyms.fy @@ -19,7 +19,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" |