From 7c7d44f1dc284e4c4e231d97023aa87ecd5f8e44 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 10 Aug 2011 23:30:02 +0000 Subject: * algebra/float.spad.pamphlet (Float): Tidy. * algebra/fortmac.spad.pamphlet (MachineInteger): Likewise. * algebra/fspace.spad.pamphlet (FunctionSpace): Likewise. * algebra/integer.spad.pamphlet (Integer): Likewise. * algebra/mkfunc.spad.pamphlet (InputForm): Likewise. * algebra/newpoly.spad.pamphlet (RecursivePolynomialCategory): Likewise. * input/knot.input.pamphlet: Likewise. * input/knot2.input.pamphlet: Likewise. * input/mult3d.input.pamphlet: Likewise. * input/multKnot.input.pamphlet: Likewise. * input/r21bugsbig.input.pamphlet: Likewise. * input/tutchap2.input.pamphlet: Likewise. --- src/algebra/fortmac.spad.pamphlet | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/algebra/fortmac.spad.pamphlet') diff --git a/src/algebra/fortmac.spad.pamphlet b/src/algebra/fortmac.spad.pamphlet index 92a1c9c7..5684244c 100644 --- a/src/algebra/fortmac.spad.pamphlet +++ b/src/algebra/fortmac.spad.pamphlet @@ -54,7 +54,7 @@ MachineInteger(): Exports == Implementation where coerce(u:Integer):$ == import S abs(u) > MAXINT => - message: S := concat [convert(u)@S," > MAXINT(",convert(MAXINT)@S,")"] + message: S := concat [string u," > MAXINT(",string MAXINT,")"] error message per u @@ -208,7 +208,7 @@ MachineFloat(): Exports == Implementation where checkExponent(u:$):$ == exponent(u) < EMIN or exponent(u) > EMAX => message :S := concat(["Exponent out of range: ", - convert(EMIN)@S, "..", convert(EMAX)@S])$S + string EMIN, "..", string EMAX])$S error message u -- cgit v1.2.3