packages: drop no-fallback-list interning restriction.

Removing the restriction that qualified pkg:sym syntax may not
cause interning to take place if pkg has a nonempty fallback
list. This serves no purpose, only hindering the flexibility
of the package system.

* parser.y (sym_helper): When processing a qualified symbol,
if the package exists, just intern it.

* txr.1: Revise all text which touched on the removed rule,
to remove all traces of it from the documentation.

1 files changed, 1 insertions, 14 deletions

diff --git a/parser.y b/parser.y
index fadf1dcd..595bf8ff 100644
--- a/parser.y
+++ b/parser.y
@@ -1351,20 +1351,7 @@ static val sym_helper(parser_t *parser, wchar_t *lexeme, val meta_allowed)
                  pkg_name, sym_name, pkg_name, nao);
         return nil;
       }
-
-      sym = find_symbol(sym_name, package);
-
-      if (sym == zero) {
-        if (!package_fallback_list(package)) {
-          sym = intern(sym_name, package);
-        } else {
-          yyerrorf(scnr, lit("~a:~a: cannot intern symbol using qualified symbol syntax,"),
-                   pkg_name, sym_name, nao);
-          yyerrorf(scnr, lit("~a:~a: because package ~a has a fallback list"),
-                   pkg_name, sym_name, pkg_name, nao);
-          return nil;
-        }
-      }
+      sym = intern(sym_name, package);
     }
   } else {
     val sym_name = string(lexeme);