diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-11-16 06:41:55 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-11-16 06:41:55 -0800 |
| commit | dc84927c791873508f473f1d5679550882f86e91 (patch) | |
| tree | a7143022cfe09d975c9984a9be7b9b2d7e2f55bc /lib.h | |
| parent | cf0ac2826bc7dc06d3c63e956ec8922a358f4f80 (diff) | |
| download | txr-dc84927c791873508f473f1d5679550882f86e91.tar.gz txr-dc84927c791873508f473f1d5679550882f86e91.tar.bz2 txr-dc84927c791873508f473f1d5679550882f86e91.zip | |
Completion of fallback list implementation.
* lib.c (find_symbol): New function.
(symbol_present): Search the fallback list also to
determine whether the symbol is visible.
* lib.h (find_symbol): Declared.
* parser.y (sym_helper): Implement a new behavior for
qualified symbols. Interning new symbols is only allowed
for packages that have an empty fallback list.
* parser.c (get_visible_syms): New static function.
(find_matching_syms): Use get_visible_syms to get
the list of eligible symbols. This way the fallback list
of the package is included if it is the current package.
* share/txr/stdlib/package.tl (defpackage): Do not insert
a default (:use usr) if there is no :usr clause. Since
defpackage is very new, no need for backward compatibility;
the amount of code depending on this is likely zero.
* txr.1: Documented fallback list feature.
Diffstat (limited to 'lib.h')
| -rw-r--r-- | lib.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -789,6 +789,7 @@ val use_sym(val use_list, val package); val unuse_sym(val symbol, val package); val use_package(val use_list, val package); val unuse_package(val unuse_list, val package); +val find_symbol(val str, val package); val intern(val str, val package); val unintern(val sym, val package); val rehome_sym(val sym, val package); |