aboutsummaryrefslogtreecommitdiff
path: root/src/interp/format.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-02-25 05:13:53 +0000
committerdos-reis <gdr@axiomatics.org>2011-02-25 05:13:53 +0000
commitb71fd7a811c516e8ca2a8a3f4ad578e9f637596b (patch)
treee676e8436022b7a51c0c3c10511fc16876f87b13 /src/interp/format.boot
parent66f5a47122d91ad3a395cc02549908b8daf1bdd8 (diff)
downloadopen-axiom-b71fd7a811c516e8ca2a8a3f4ad578e9f637596b.tar.gz
* 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.
Diffstat (limited to 'src/interp/format.boot')
-rw-r--r--src/interp/format.boot8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot
index 2acc4e80..519d0169 100644
--- a/src/interp/format.boot
+++ b/src/interp/format.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
@@ -175,7 +175,7 @@ reportOpSymbol op1 ==
if op1 = "^" then
sayMessage ['" ",op1, '" is another name for", :bright '"**"]
op1 := "**"
- op := (string? op1 => INTERN op1; op1)
+ op := (string? op1 => makeSymbol op1; op1)
modemaps := getAllModemapsFromDatabase(op,nil)
null modemaps =>
ok := true
@@ -587,7 +587,7 @@ linearFormatForm(op,argl) ==
s:= PNAME op
indexList:= [readInteger PNAME d for i in 1.. while
(digit? (d:= s.(maxIndex:= i)))]
- cleanOp:= INTERN (strconc/[PNAME s.i for i in maxIndex..MAXINDEX s])
+ cleanOp:= makeSymbol (strconc/[PNAME s.i for i in maxIndex..MAXINDEX s])
fnArgs:=
indexList.0 > 0 =>
concat('"(",formatArgList take(-indexList.0,argl),'")")
@@ -744,7 +744,7 @@ object2String x ==
object2Identifier x ==
IDENTP x => x
- INTERN object2String x
+ makeSymbol object2String x
blankList x == "append"/[[BLANK,y] for y in x]