From b71fd7a811c516e8ca2a8a3f4ad578e9f637596b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 25 Feb 2011 05:13:53 +0000
Subject: 	* 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.

---
 src/interp/wi1.boot | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/interp/wi1.boot')

diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot
index e71a9ece..a584b351 100644
--- a/src/interp/wi1.boot
+++ b/src/interp/wi1.boot
@@ -52,7 +52,7 @@ tr fn ==
   markSay '"#pile"
   markSay('"#include _"axiom.as_"")
   markTerpri()
-  CATCH($SpadReaderTag,compiler [INTERN sfn])
+  CATCH($SpadReaderTag,compiler [makeSymbol sfn])
   SHUT $outStream
 
 ppFull x ==
@@ -318,7 +318,7 @@ compWithMappingMode(x,m,oldE) ==
     if get(x,"modemap",$CategoryFrame) is [[[.,target,:argModeList],.],:.] and
       (and/[extendsCategoryForm("$",s,mode) for mode in argModeList for s in sl]
         ) and extendsCategoryForm("$",target,m') then return [x,m,e]
-  if string? x then x:= INTERN x
+  if string? x then x:= makeSymbol x
   for m in sl for v in (vl:= take(#sl,$FormalMapVariableList)) repeat
     [.,.,e]:= compMakeDeclaration(v,m,e)
   not null vl and not hasFormalMapVariable(x, vl) => return
@@ -1012,8 +1012,8 @@ compCase1(x,m,e) ==
 genCaseTag(t,l,n) ==
   l is [x, :l] =>
     x = t     => 
-      string? x => INTERN x
-      INTERN strconc("value", STRINGIMAGE n)
+      string? x => makeSymbol x
+      makeSymbol strconc("value", STRINGIMAGE n)
     x is ["::",=t,:.] => t
     string? x => genCaseTag(t, l, n)
     genCaseTag(t, l, n + 1)
@@ -1106,7 +1106,7 @@ compDefine1(form,m,e) ==
       $formalArgList)
   null $form => stackAndThrow ['"bad == form ",form]
   newPrefix:=
-    $prefix => INTERN strconc(encodeItem $prefix,'",",encodeItem $op)
+    $prefix => makeSymbol strconc(encodeItem $prefix,'",",encodeItem $op)
     getAbbreviation($op,#rest $form)
   compDefineCapsuleFunction(form,m,e,newPrefix,$formalArgList)
 
-- 
cgit v1.2.3