* boot/tokens.boot: makeSymbol is not a builtin function.

	* boot/ast.boot: Use makeSymbol in place of INTERN.
	* boot/parser.boot: Likewise.
	* boot/scanner.boot: Likewise.
	* boot/translator.boot: Likewise.
	* interp/alql.boot: Likewise.
	* interp/as.boot: Likewise.
	* interp/ax.boot: Likewise.
	* interp/bc-matrix.boot: Likewise.
	* interp/bc-solve.boot: Likewise.
	* interp/br-con.boot: Likewise.
	* interp/br-data.boot: Likewise.
	* interp/br-op2.boot: Likewise.
	* interp/br-prof.boot: Likewise.
	* interp/br-search.boot: Likewise.
	* interp/c-doc.boot: Likewise.
	* interp/c-util.boot: Likewise.
	* interp/clam.boot: Likewise.
	* interp/compiler.boot: Likewise.
	* interp/define.boot: Likewise.
	* interp/format.boot: Likewise.
	* interp/fortcall.boot: Likewise.
	* interp/i-syscmd.boot: Likewise.
	* interp/i-spec1.boot: Likewise.
	* interp/i-output.boot: Likewise.
	* interp/i-coerce.boot: Likewise.
	* interp/i-map.boot: Likewise.
	* interp/htsetvar.boot: Likewise.
	* interp/ht-util.boot: Likewise.
	* interp/g-util.boot: Likewise.
	* interp/functor.boot: Likewise.
	* interp/pspad1.boot: Likewise.
	* interp/pspad2.boot: Likewise.
	* interp/postpar.boot: Likewise.
	* interp/pf2sex.boot: Likewise.
	* interp/parse.boot: Likewise.
	* interp/packtran.boot: Likewise.
	* interp/nrunopt.boot: Likewise.
	* interp/nruncomp.boot: Likewise.
	* interp/newfort.boot: Likewise.
	* interp/msgdb.boot: Likewise.
	* interp/modemap.boot: Likewise.
	* interp/mark.boot: Likewise.
	* interp/intfile.boot: Likewise.
	* interp/interop.boot: Likewise.
	* interp/incl.boot: Likewise.
	* interp/word.boot: Likewise.
	* interp/wi2.boot: Likewise.
	* interp/wi1.boot: Likewise.
	* interp/trace.boot: Likewise.
	* interp/topics.boot: Likewise.
	* interp/sys-constants.boot: Likewise.
	* interp/showimp.boot: Likewise.
	* interp/scan.boot: Likewise.

1 files changed, 4 insertions, 4 deletions

diff --git a/src/interp/mark.boot b/src/interp/mark.boot
index 509fd8ba..6915b4d8 100644
--- a/src/interp/mark.boot
+++ b/src/interp/mark.boot
@@ -172,7 +172,7 @@ markAutoCoerceDown(x,tag,T,killColonColon?) ==
 markAutoCoerceUp(x,T) ==
 --  y := getSourceWI x
 --  y := 
---    string? y => INTERN y
+--    string? y => makeSymbol y
 --    y   
   tcheck T  
   [mkWi('coerceExtraHard,'LAMBDA, nil,["REPLACE",['construct, "##1"]],T.expr),
@@ -518,7 +518,7 @@ markOrigName x ==
       s := symbolName op
       k := charPosition(char '_;, s, 0)
       k > MAXINDEX s => nil
-      origName := INTERN subString(s, k + 1)
+      origName := makeSymbol subString(s, k + 1)
       property(op, 'ORIGNAME) := origName
       REMPROP(op,'PNAME)
     markOrigName op
@@ -1250,7 +1250,7 @@ changeToEqualEqual lines ==
     while (m := m + 1) <= N and alphabetic? (x . m) repeat nil
     m = n + 2 => nil
     not upperCase? (x . (n + 4)) => nil
-    word := INTERN subString(x, n + 4, m - n - 4)
+    word := makeSymbol subString(x, n + 4, m - n - 4)
     expandedWord := macroExpand(word,$e)
     not (word in '(Record Union Mapping)
       or getConstructorFormFromDB opOf expandedWord) => nil
@@ -1440,7 +1440,7 @@ combineDefinitions() ==
         [predl,.,:def]    := item
         ['DEF, form, :.] := def
         ops := PNAME op
-        opName := INTERN(strconc(ops,'"X",STRINGIMAGE i))
+        opName := makeSymbol(strconc(ops,'"X",STRINGIMAGE i))
         form.first := opName
 --      rplacaSubst(op, opName, def)
         $acc := [[form,:predl], :$acc]