diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-15 10:30:34 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-15 10:30:34 +0000 |
| commit | abc74d7854a504c94f6f66d997d3a2448a0c0322 (patch) | |
| tree | 1f2314dd5730c45a14f6c91c24d26d5a71aec7c4 /src/interp/i-analy.boot | |
| parent | ebafd5f858e29cc75f89e098cd8d564cb7d92144 (diff) | |
| download | open-axiom-abc74d7854a504c94f6f66d997d3a2448a0c0322.tar.gz | |
* interp/msgdb.boot (applyPrefix2String): New.
(substituteSegmentedMsg): Use to implement documented behaviour
of formatting code P.
* interp/i-analy.boot (printableArgModeSetList): Don't call
prefix2String here.
(bottomUpForm0): Likewise.
Diffstat (limited to 'src/interp/i-analy.boot')
| -rw-r--r-- | src/interp/i-analy.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot index 8645b391..7b44377d 100644 --- a/src/interp/i-analy.boot +++ b/src/interp/i-analy.boot @@ -579,9 +579,9 @@ removeUnionsAtStart(argl,modeSets) == printableArgModeSetList() == amsl := nil for a in reverse $origArgModeSetList repeat - b := prefix2String first a + b := first a if atom b then b := [b] - amsl := ['"%l",:b,:amsl] + amsl := ['"%l",b,:amsl] if amsl then amsl := rest amsl amsl @@ -642,7 +642,7 @@ bottomUpForm0(t,op,opName,argl,argModeSetList) == if null(opName1) then opName1 := - (o := getValue op0) => prefix2String objMode o + (o := getValue op0) => objMode o '"<unknown type>" msgKey := null amsl => "S2IB0013" |