From 3d7b35bb37c066489546751e100c2c2b823ccba3 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sun, 19 Oct 2008 17:48:21 +0000
Subject: refs and syms

---
 examples/synonyms.fy | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'examples')

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" 
-- 
cgit v1.2.3