| commit | a4b2187729f7c9f3da0f0e28dd590758e9065a5d | [log] [tgz] |
|---|---|---|
| author | rsc <devnull@localhost> | Tue Feb 14 19:38:04 2006 +0000 |
| committer | rsc <devnull@localhost> | Tue Feb 14 19:38:04 2006 +0000 |
| tree | eb790d9f3fd58b78d4eaf144ba0c37891510b907 | |
| parent | 469e5e5196565eac53b2d341ea865800150705d4 [diff] |
better symbols
diff --git a/acid/port b/acid/port index c6bf905..c8e195f 100644 --- a/acid/port +++ b/acid/port
@@ -603,13 +603,17 @@ defn symbols(pattern) { - local l, s; - + local l, s, name; + l = symbols; while l do { s = head l; - if regexp(pattern, s[0]) then - print(s[0], "\t", s[1], "\t", s[2], "\t", s[3], "\n"); + if regexp(pattern, s[0]) then { + name = s[4]; + if name == {} then + name = ""; + print(s[0], "\t", s[1], "\t", s[2], "\t", s[3], "\t", name, "\n"); + } l = tail l; } }