* boot/tokens.boot: Retire "^=". Introduce "~=".

	* boot/ast.boot: Use "~=" instead of "^=".
	* boot/includer.boot: Likewise.
	* boot/translator.boot: Likewise.
	* interp/as.boot: Likewise.
	* interp/bc-misc.boot: Likewise.
	* interp/bc-solve.boot: Likewise.
	* interp/bc-util.boot: Likewise.
	* interp/br-con.boot: Likewise.
	* interp/br-data.boot: Likewise.
	* interp/br-op1.boot: Likewise.
	* interp/br-op2.boot: Likewise.
	* interp/br-prof.boot: Likewise.
	* interp/br-saturn.boot: Likewise.
	* interp/br-search.boot: Likewise.
	* interp/br-util.boot: Likewise.
	* interp/c-doc.boot: Likewise.
	* interp/c-util.boot: Likewise.
	* interp/category.boot: Likewise.
	* interp/cattable.boot: Likewise.
	* interp/clam.boot: Likewise.
	* interp/clammed.boot: Likewise.
	* interp/compiler.boot: Likewise.
	* interp/database.boot: Likewise.
	* interp/define.boot: Likewise.
	* interp/format.boot: Likewise.
	* interp/fortcall.boot: Likewise.
	* interp/functor.boot: Likewise.
	* interp/g-cndata.boot: Likewise.
	* interp/g-opt.boot: Likewise.
	* interp/g-timer.boot: Likewise.
	* interp/g-util.boot: Likewise.
	* interp/guess.boot: Likewise.
	* interp/ht-root.boot: Likewise.
	* interp/ht-util.boot: Likewise.
	* interp/htsetvar.boot: Likewise.
	* interp/i-analy.boot: Likewise.
	* interp/i-code.boot: Likewise.
	* interp/i-coerce.boot: Likewise.
	* interp/i-coerfn.boot: Likewise.
	* interp/i-eval.boot: Likewise.
	* interp/i-funsel.boot: Likewise.
	* interp/i-intern.boot: Likewise.
	* interp/i-map.boot: Likewise.
	* interp/i-output.boot: Likewise.
	* interp/i-resolv.boot: Likewise.
	* interp/i-spec1.boot: Likewise.
	* interp/i-spec2.boot: Likewise.
	* interp/i-syscmd.boot: Likewise.
	* interp/i-toplev.boot: Likewise.
	* interp/i-util.boot: Likewise.
	* interp/int-top.boot: Likewise.
	* interp/interop.boot: Likewise.
	* interp/intfile.boot: Likewise.
	* interp/lisplib.boot: Likewise.
	* interp/macex.boot: Likewise.
	* interp/mark.boot: Likewise.
	* interp/match.boot: Likewise.
	* interp/modemap.boot: Likewise.
	* interp/msg.boot: Likewise.
	* interp/msgdb.boot: Likewise.
	* interp/newfort.boot: Likewise.
	* interp/nruncomp.boot: Likewise.
	* interp/nrunfast.boot: Likewise.
	* interp/nrungo.boot: Likewise.
	* interp/nrunopt.boot: Likewise.
	* interp/parse.boot: Likewise.
	* interp/pathname.boot: Likewise.
	* interp/pf2atree.boot: Likewise.
	* interp/pf2sex.boot: Likewise.
	* interp/postpar.boot: Likewise.
	* interp/profile.boot: Likewise.
	* interp/pspad1.boot: Likewise.
	* interp/pspad2.boot: Likewise.
	* interp/record.boot: Likewise.
	* interp/scan.boot: Likewise.
	* interp/setvars.boot: Likewise.
	* interp/simpbool.boot: Likewise.
	* interp/slam.boot: Likewise.
	* interp/topics.boot: Likewise.
	* interp/trace.boot: Likewise.
	* interp/wi1.boot: Likewise.
	* interp/wi2.boot: Likewise.
	* interp/word.boot: Likewise.

1 files changed, 7 insertions, 7 deletions

diff --git a/src/interp/as.boot b/src/interp/as.boot
index c6ea5bde..15242412 100644
--- a/src/interp/as.boot
+++ b/src/interp/as.boot
@@ -1,6 +1,6 @@
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
--- Copyright (C) 2007-2008, Gabriel Dos Reis.
+-- Copyright (C) 2007-2009, Gabriel Dos Reis.
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -358,7 +358,7 @@ asyMakeOperationAlist(con,proplist, key) ==
       y := asyAncestors form
       [attrs, na] := asyFindAttrs y
       y := na
-      if opOf(y)^=con then ancestorAlist := [ [y,:true],:ancestorAlist]
+      if opOf(y) ~= con then ancestorAlist := [ [y,:true],:ancestorAlist]
     idForm   :=
       form is ['Apply,'_-_>,source,target] => [id,:asyArgs source]
   ----------> Constants change <--------------
@@ -368,8 +368,8 @@ asyMakeOperationAlist(con,proplist, key) ==
       nil
     sig := asySignature(asytranForm(form,[idForm],nil),nil)
     entry :=
-      --id ^= "%%" and IDENTP idForm => [[sig],nil,nil,'ASCONST]
-      id ^= "%%" and IDENTP idForm =>
+      --id ~= "%%" and IDENTP idForm => [[sig],nil,nil,'ASCONST]
+      id ~= "%%" and IDENTP idForm =>
           pred => [[sig],nil,asyPredTran pred,'ASCONST]
           [[sig],nil,true,'ASCONST]
       pred => [sig,nil,asyPredTran pred]
@@ -437,7 +437,7 @@ mkNiladics u ==
 asytranDeclaration(dform,levels,predlist,local?) ==
   ['Declare,id,form,r] := dform
   id = 'failed => id
-  KAR dform ^= 'Declare => systemError '"asytranDeclaration"
+  KAR dform ~= 'Declare => systemError '"asytranDeclaration"
   if levels = '(top) then
     if form isnt ['Apply,"->",:.] then HPUT($constantHash,id,true)
   comments := LASSOC('documentation,r) or '""
@@ -528,7 +528,7 @@ asytranForm(form,levels,local?) ==
 
 asytranForm1(form,levels,local?) ==
   form is ['With,left,cat] =>
---  left ^= nil       => error '"WITH cannot take a left argument yet"
+--  left ~= nil       => error '"WITH cannot take a left argument yet"
     asytranCategory(form,levels,nil,local?)
   form is ['Apply,:.]   => asytranApply(form,levels,local?)
   form is ['Declare,:.] => asytranDeclaration(form,levels,nil,local?)
@@ -755,7 +755,7 @@ asySplit(name,end) ==
 createAbbreviation s ==
   if STRINGP s then s := INTERN s
   a := constructor? s
-  a ^= s => a
+  a ~= s => a
   nil
 
 --============================================================================