diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-29 03:20:55 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-29 03:20:55 +0000 |
| commit | 9c532285f28b723a3f70fc4eba19e3856ecbd3dd (patch) | |
| tree | 8cab2c9b8ac48fd5b39bfc7a1fd192ede88c4117 /src/interp/br-op1.boot | |
| parent | ca4b1b74d8e743f50f0db37f1b33265f46547f01 (diff) | |
| download | open-axiom-9c532285f28b723a3f70fc4eba19e3856ecbd3dd.tar.gz | |
SUBSTRING cleanup
Diffstat (limited to 'src/interp/br-op1.boot')
| -rw-r--r-- | src/interp/br-op1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot index 2740fb17..c3ea7a5a 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -846,7 +846,7 @@ dbExpandOpAlistIfNecessary(htPage,opAlist,which,needOrigins?,condition?) == packageSymbol := false domform := htpProperty(htPage,'domname) or htpProperty(htPage,'conform) if isDefaultPackageName opOf domform then - catname := intern SUBSTRING(s := PNAME opOf domform,0,MAXINDEX s) + catname := intern subString(s := PNAME opOf domform,0,MAXINDEX s) packageSymbol := second domform domform := [catname,:rest rest domform] --skip first argument ($) docTable:= dbDocTable domform |