From b71fd7a811c516e8ca2a8a3f4ad578e9f637596b Mon Sep 17 00:00:00 2001 From: dos-reis 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/as.boot | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/interp/as.boot') diff --git a/src/interp/as.boot b/src/interp/as.boot index 0c167248..d7e1aac1 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-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 @@ -109,7 +109,7 @@ asySubstMapping u == u --asyFilePackage asyFile == --- name := INTERN PATHNAME_-NAME asyFile +-- name := makeSymbol PATHNAME_-NAME asyFile -- modemap := -- [[[name],['CATEGORY,'domain, -- :[asyMkSignature(con,CDAR mm) for [con,:mm] in $mmAlist]]],['T,name]] @@ -701,12 +701,12 @@ asyAbbreviation(id,n) == chk(id,main) where --> n = number of arguments main() == a := createAbbreviation id => a name := PNAME id --- #name < 8 => INTERN UPCASE name +-- #name < 8 => makeSymbol UPCASE name parts := asySplit(name,MAXINDEX name) newname := strconc/[asyShorten x for x in parts] - #newname < 8 => INTERN newname + #newname < 8 => makeSymbol newname tryname := subString(name,0,7) - not createAbbreviation tryname => INTERN UPCASE tryname + not createAbbreviation tryname => makeSymbol UPCASE tryname nil chk(conname,abb) == (xx := asyGetAbbrevFromComments conname) => xx @@ -753,7 +753,7 @@ asySplit(name,end) == [subString(name,0,k),:asySplit(subString(name,k),end-k)] createAbbreviation s == - if string? s then s := INTERN s + if string? s then s := makeSymbol s a := constructor? s a ~= s => a nil -- cgit v1.2.3