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/htsetvar.boot | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/src/interp/htsetvar.boot b/src/interp/htsetvar.boot
index 5dd805bb..6acb52c4 100644
--- a/src/interp/htsetvar.boot
+++ b/src/interp/htsetvar.boot
@@ -1,6 +1,6 @@
 -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
 -- All rights reserved.
--- Copyright (C) 2007-2010, Gabriel Dos Reis.
+-- Copyright (C) 2007-2011, Gabriel Dos Reis.
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -272,7 +272,7 @@ htCheck(checker,value) ==
 parseWord x ==
   string? x =>
     and/[digit? x.i for i in 0..MAXINDEX x] => readInteger x
-    INTERN x
+    makeSymbol x
   x
 
 htCheckList(checker,value) ==
@@ -334,7 +334,7 @@ chkAllNonNegativeInteger s ==
 
 htMakePathKey path ==
   null path => systemError '"path is not set"
-  INTERN fn(PNAME first path,rest path) where
+  makeSymbol fn(PNAME first path,rest path) where
     fn(a,b) ==
       null b => a
       fn(strconc(a,'".",PNAME first b),rest b)
@@ -422,14 +422,14 @@ htCacheAddChoice htPage ==
   htSetvarDoneButton('"Select to Set Values",'htCacheSet)
   htShowPage()
 
-htMakeLabel(prefix,i) == INTERN strconc(prefix,stringize i)
+htMakeLabel(prefix,i) == makeSymbol strconc(prefix,stringize i)
 
 htCacheSet htPage ==
   names := htpProperty(htPage,'names)
   for i in 1.. for name in names repeat
     num := chkAllNonNegativeInteger
              htpLabelInputString(htPage,htMakeLabel('"c",i))
-    $cacheAlist := ADDASSOC(INTERN name,num,$cacheAlist)
+    $cacheAlist := ADDASSOC(makeSymbol name,num,$cacheAlist)
   if (n := LASSOC('all,$cacheAlist)) then
     $cacheCount := n
     $cacheAlist := deleteAssoc('all,$cacheAlist)
-- 
cgit v1.2.3