diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/interp/bc-misc.boot | 2 | ||||
| -rw-r--r-- | src/interp/format.boot | 2 | ||||
| -rw-r--r-- | src/interp/ht-root.boot | 2 | ||||
| -rw-r--r-- | src/interp/i-output.boot | 2 | ||||
| -rw-r--r-- | src/interp/int-top.boot | 4 | ||||
| -rw-r--r-- | src/interp/lisplib.boot | 2 |
6 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/bc-misc.boot b/src/interp/bc-misc.boot index c6a1dcbc..1d0d89e1 100644 --- a/src/interp/bc-misc.boot +++ b/src/interp/bc-misc.boot @@ -919,7 +919,7 @@ bcComplexLimitGen htPage == comp = '"1" => '"%i" strconc(comp,'"*%i") real = '"0" => - complexPart = '"" => "0" + complexPart = '"" => '"0" complexPart complexPart = '"" => real strconc(real,'" + ",complexPart) diff --git a/src/interp/format.boot b/src/interp/format.boot index 59e6ae49..29093903 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -273,7 +273,7 @@ formatAttribute x == [" ",op] formatAttributeArg x == - string? x and x ='"*" => "_"*_"" + x is '"*" => "_"*_"" atom x => formatOpSymbol (x,nil) x is [":",op,["Mapping",:sig]] => concat('"%b",formatOpSymbol(op,sig),": ",'"%d",formatMapping sig) diff --git a/src/interp/ht-root.boot b/src/interp/ht-root.boot index 927b5a93..595bf4c9 100644 --- a/src/interp/ht-root.boot +++ b/src/interp/ht-root.boot @@ -256,7 +256,7 @@ htTutorialSearch pattern == errorPage(nil,['"Empty search key",nil,'"\vspace{3}\centerline{You must enter some search string"]) s := mkUnixPattern s source := '"$AXIOM/share/hypertex/pages/ht.db" - target :='"/tmp/temp.text.$SPADNUM" + target := '"/tmp/temp.text.$SPADNUM" runCommand strconc('"$AXIOM/lib/hthits",'" _"",s,'"_" ",source,'" > ",target) lines := dbReadLines 'temp htInitPageNoScroll(nil,['"Tutorial Pages mentioning {\em ",pattern,'"}"]) diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index c13f71cf..cff0e227 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -1595,7 +1595,7 @@ output(expr,domain) == outputNumber(start,linelength,num) == if start > 1 then blnks := fillerSpaces(start-1,'" ") else blnks := '"" - under:='"__" + under := '"__" firsttime:=(linelength>3) if linelength>2 then linelength:=linelength-1 diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot index 0c1c6a0b..f4c0240b 100644 --- a/src/interp/int-top.boot +++ b/src/interp/int-top.boot @@ -296,8 +296,8 @@ ncloopEscaped x== done:=false for i in (# x) - 1 .. 0 by -1 while not done repeat done:= - x.i='" ".0 =>false - x.i='"__".0=> + x.i = char " " => false + x.i = char "__" => esc:=true true true diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index c3901bd0..938df89e 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -676,7 +676,7 @@ getAllAldorObjectFiles dir == -- only sensical .asy files. dupAOs := MAPCAN(function PATHNAME_-NAME,asys) [asys,[f for f in asos - | PATHNAME_-NAME f='"ao" and not member(PATHNAME_-NAME f,dupAOs)]] + | PATHNAME_-NAME f = '"ao" and not member(PATHNAME_-NAME f,dupAOs)]] |