From b1fb4cb58a886484e213bd1235f6de75713950c9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 30 Dec 2010 12:10:11 +0000
Subject: more string cleanups

---
 src/interp/nrungo.boot | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/interp/nrungo.boot')

diff --git a/src/interp/nrungo.boot b/src/interp/nrungo.boot
index 590bf246..4dea8353 100644
--- a/src/interp/nrungo.boot
+++ b/src/interp/nrungo.boot
@@ -194,8 +194,7 @@ defaultingFunction op ==
   not (#dom > 0) => false
   not (dom.0 is [packageName,:.]) => false
   not IDENTP packageName => false
-  pname := PNAME packageName
-  pname.(MAXINDEX pname) = char "&"
+  isDefaultPackageName packageName
 
 --=======================================================
 --   Lookup In Domain (from lookupInAddChain)
@@ -291,7 +290,7 @@ compareSigEqual(s,t,dollar,domain) ==
       isSharpVar t =>
         vector? domain => rest(domain.0).(POSN1(t,$FormalMapVariableList))
         rest(domain).(POSN1(t,$FormalMapVariableList))
-      string? t and IDENTP s => (s := PNAME s; t)
+      string? t and IDENTP s => (s := symbolName s; t)
       nil
     s = '$ => compareSigEqual(dollar,u,dollar,domain)
     u => compareSigEqual(s,u,dollar,domain)
-- 
cgit v1.2.3