diff options
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index de919848..a1c1765f 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1023,14 +1023,14 @@ mkCategoryPackage(db,cat,def,e) == [op,:argl] := dbConstructorForm db packageName:= makeDefaultPackageName symbolName op dbConstructorDefault(db) := packageName - packageAbb := makeSymbol strconc(symbolName dbAbbreviation db,'"-") + packageAbb := makeDefaultPackageAbbreviation db $options:local := [] -- This stops the next line from becoming confused abbreviationsSpad2Cmd ['package,packageAbb,packageName] -- This is a little odd, but the parser insists on calling -- domains, rather than packages - nameForDollar := first setDifference('(S A B C D E F G H I),argl) - packageArgl := [nameForDollar,:argl] + packageArgl := makeDefaultPackageParameters db + nameForDollar := first packageArgl capsuleDefAlist := fn(def,nil) where fn(x,oplist) == x isnt [.,:.] => oplist x is ['DEF,y,:.] => [opOf y,:oplist] |