From 2a7a7e349eb557f49e865d8ecf47aca4d0fd49dd Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 9 Nov 2011 02:50:41 +0000 Subject: * interp/define.boot (compFunctorBody): First argument is now a DB. Adjustt caller. (incompleteFunctorBody): Likewise. * interp/bc-matrix.boot: Use toString instead of STRINGIMAGE where appropriate. * interp/bc-solve.boot: Likewise. * interp/bc-util.boot: Likewise. * interp/br-con.boot: Likewise. * interp/br-op1.boot: Likewise. * interp/br-saturn.boot: Likewise. * interp/c-doc.boot: Likewise. * interp/c-util.boot: Likewise. * interp/clam.boot: Likewise. * interp/format.boot: Likewise. * interp/functor.boot: Likewise. * interp/g-timer.boot: Likewise. * interp/htsetvar.boot: Likewise. * interp/i-funsel.boot: Likewise. * interp/i-map.boot: Likewise. * interp/i-output.boot: Likewise. * interp/i-resolv.boot: Likewise. * interp/i-special.boot: Likewise. * interp/i-syscmd.boot: Likewise. * interp/i-util.boot: Likewise. * interp/msg.boot: Likewise. * interp/newfort.boot: Likewise. * interp/parse.boot: Likewise. * interp/pathname.boot: Likewise. * interp/setvars.boot: Likewise. * interp/showimp.boot: Likewise. * interp/slam.boot: Likewise. * interp/trace.boot: Likewise. --- src/interp/functor.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/functor.boot') diff --git a/src/interp/functor.boot b/src/interp/functor.boot index f60e0cd5..818e197a 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -133,7 +133,7 @@ DomainPrint1(D,brief,$e) == PRETTYPRINT uu DPname() == - name := INTERNL strconc('"Where",toString $WhereCounter) + name := makeSymbol strconc('"Where",toString $WhereCounter) $WhereCounter := $WhereCounter+1 name @@ -791,7 +791,7 @@ encodeFunctionName(db,fun,signature,sep,count) == encodedPair() == n=1 => encodeItem x strconc(toString n,encodeItem x) - encodedName:= INTERNL(symbolName dbAbbreviation db,'";", + encodedName:= makeSymbol strconc(symbolName dbAbbreviation db,'";", encodeItem fun,'";",encodedSig,sep,toString count) dbCapsuleDefinitions(db) := [[encodedName,signature'],:dbCapsuleDefinitions db] -- cgit v1.2.3