diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-07-28 14:50:10 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-07-28 14:50:10 +0000 |
| commit | 708ad63d818302003bbff2306892007cdc9888cf (patch) | |
| tree | 649849384a88536fe19a41d378b1f6fbcc0f677d /src/interp/msgdb.boot | |
| parent | 16979e1df537412a0baba5c95c7d0036bf0ddf9b (diff) | |
| download | open-axiom-708ad63d818302003bbff2306892007cdc9888cf.tar.gz | |
* interp/spad.lisp (DIVIDE2): Remove.
* interp/vmlisp.lisp (QSQUOTIENT): Likewise.
(QSREMAINDER): Likewise.
* interp/buildom.boot: Use quo and rem in leur of QUOTIENT and
REMAINDER or variants.
* interp/g-timer.boot: Likewise.
* interp/g-util.boot: Likewise.
* interp/htsetvar.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/incl.boot: Likewise.
* interp/msgdb.boot: Likewise.
* interp/nrungo.boot: Likewise.
* interp/pspad1.boot: Likewise.
* interp/topics.boot: Likewise.
Diffstat (limited to 'src/interp/msgdb.boot')
| -rw-r--r-- | src/interp/msgdb.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index 7a646ce5..4d26fe71 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -864,17 +864,17 @@ sayAsManyPerLineAsPossible l == NIL w := MIN(m + 3,$LINELENGTH) -- p is the number of elements per line - p := QUOTIENT($LINELENGTH,w) + p := $LINELENGTH quo w n := # l str := '"" for i in 0..(n-1) repeat [c,:l] := l str := strconc(str,c,fillerSpaces(w - #c,'" ")) - REMAINDER(i+1,p) = 0 => (sayMSG str ; str := '"" ) + (i+1) rem p = 0 => (sayMSG str ; str := '"" ) if str ~= '"" then sayMSG str NIL -say2PerLine l == say2PerLineWidth(l, QUOTIENT($LINELENGTH,2)) +say2PerLine l == say2PerLineWidth(l, $LINELENGTH quo 2) say2PerLineWidth(l,n) == [short,long] := say2Split(l,nil,nil,n) @@ -907,7 +907,7 @@ say2PerLineThatFit l == while l repeat sayBrightlyNT first l sayBrightlyNT - fillerSpaces((QUOTIENT($LINELENGTH,2)-sayDisplayWidth first l),'" ") + fillerSpaces(($LINELENGTH quo 2 - sayDisplayWidth first l),'" ") (l:= rest l) => sayBrightlyNT first l l:= rest l @@ -938,7 +938,7 @@ pp2Cols(al) == ppPair(abb,name) if canFit2ndEntry(name,al) then [[abb,:name],:al]:= al - TAB QUOTIENT($LINELENGTH,2) + TAB($LINELENGTH quo 2) ppPair(abb,name) sayNewLine() nil @@ -947,7 +947,7 @@ ppPair(abb,name) == sayBrightlyNT [:bright abb,fillerSpaces(8-entryWidth abb," "),name] canFit2ndEntry(name,al) == - wid := QUOTIENT($LINELENGTH,2) - 10 + wid := $LINELENGTH quo 2 - 10 null al => nil entryWidth name > wid => nil entryWidth CDAR al > wid => nil |