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)]]