diff options
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 d8ef9d69..4b005cb8 100644 --- a/src/interp/packtran.boot +++ b/src/interp/packtran.boot @@ -43,7 +43,7 @@ packageTran sex == -- destructively translate all the symbols in the given s-expression to the -- current package symbol? sex => - EQ(_*PACKAGE_*, SYMBOL_-PACKAGE sex) => sex + sameObject?(_*PACKAGE_*, SYMBOL_-PACKAGE sex) => sex makeSymbol symbolName sex cons? sex => sex.first := packageTran first sex |