From 4d4f05f71ab532ac95570bef18da5098965db723 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 27 Oct 2011 00:04:28 +0000 Subject: Support use of any natural number literal as constant name. * interp/postpar.boot (postNormalizeName): Remove. (postLhsOfDefinition): New. (postDef): Use it. (postMDef): Likewise. (postForm): Remove dead code. (postSignature): Internalize names of exported operators. * interp/i-intern.boot (mkAtree2): For package call resolution, use internal names. * interp/compiler.boot (compAtomWithModemap): Use externalName for name reported in diagnostic. (compIntegerLiteral): New. (compAtom): Use it. (compElt): Look up modemaps for internal names. (getModemapList): Likewise. * interp/g-util.boot (normalizeName): New. (internalName): Likewise. (externalName): Likewise. --- src/input/sint.input.pamphlet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/input') diff --git a/src/input/sint.input.pamphlet b/src/input/sint.input.pamphlet index d51fbb5d..927a4dca 100644 --- a/src/input/sint.input.pamphlet +++ b/src/input/sint.input.pamphlet @@ -17,7 +17,7 @@ min()$SingleInteger max()$SingleInteger a := 1234 :: SingleInteger -b := 124$SingleInteger +b := 124@SingleInteger gcd(a,b) lcm(a,b) mulmod(5,6,13)$SingleInteger -- cgit v1.2.3