diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-29 15:17:00 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-29 15:17:00 +0000 |
| commit | d6e1db9b19a58fd6298e3d37eb6ec25f34ff191a (patch) | |
| tree | c7b7eba9c36bd249d019d6457abad148d051a8d7 /src/interp/packtran.boot | |
| parent | 9c532285f28b723a3f70fc4eba19e3856ecbd3dd (diff) | |
| download | open-axiom-d6e1db9b19a58fd6298e3d37eb6ec25f34ff191a.tar.gz | |
Diffstat (limited to 'src/interp/packtran.boot')
| -rw-r--r-- | src/interp/packtran.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/packtran.boot b/src/interp/packtran.boot index 52f34d7c..a49da1f2 100644 --- a/src/interp/packtran.boot +++ b/src/interp/packtran.boot @@ -44,7 +44,7 @@ packageTran sex == -- current package symbol? sex => EQ(_*PACKAGE_*, SYMBOL_-PACKAGE sex) => sex - INTERN STRING sex + INTERN symbolName sex cons? sex => sex.first := packageTran first sex sex.rest := packageTran rest sex |