diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-29 17:51:01 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-29 17:51:01 +0000 |
| commit | 25671a46921cd1e72d296ed5cbcdc72de78f569d (patch) | |
| tree | 64b93ee7e988e1faf37bf34e6322da80d14c31ff /src/interp/i-funsel.boot | |
| parent | d6e1db9b19a58fd6298e3d37eb6ec25f34ff191a (diff) | |
| download | open-axiom-25671a46921cd1e72d296ed5cbcdc72de78f569d.tar.gz | |
* interp/g-opt.boot ($VMsideEffectFreeOperators): Include %strlength.
* interp/g-util.boot: Expand it.
* algebra/string.spad.pamphlet (String): Remove use of QCSIZE.
Diffstat (limited to 'src/interp/i-funsel.boot')
| -rw-r--r-- | src/interp/i-funsel.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot index 37939a6a..e58d4a3a 100644 --- a/src/interp/i-funsel.boot +++ b/src/interp/i-funsel.boot @@ -1016,7 +1016,7 @@ selectMmsGen(op,tar,args1,args2) == $Subst: local := NIL $SymbolType: local := NIL - null (S := getModemapsFromDatabase(op,QLENGTH args1)) => NIL + null (S := getModemapsFromDatabase(op,#args1)) => NIL if (op = 'map) and (2 = #args1) and (first(args1) is ['Mapping,., elem]) and @@ -1702,7 +1702,7 @@ printMms(mmS) == sayMSG '" " for [sig,imp,.] in mmS for i in 1.. repeat istr := strconc('"[",STRINGIMAGE i,'"]") - if QCSIZE(istr) = 3 then istr := strconc(istr,'" ") + if #istr = 3 then istr := strconc(istr,'" ") sayMSG [:bright istr,'"signature: ",:formatSignature rest sig] first sig='local => sayMSG ['" implemented: local function ",imp] |