aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/outform.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-07-13 22:36:51 +0000
committerdos-reis <gdr@axiomatics.org>2009-07-13 22:36:51 +0000
commitc6efaa6ac903c17bd85eb51e672f80e9baa0ebc4 (patch)
treef0543ea203bea22c063a517ca7136ed10a486be1 /src/algebra/outform.spad.pamphlet
parent361eca1c035acd57ad9f0ac1133fb641eabe122b (diff)
downloadopen-axiom-c6efaa6ac903c17bd85eb51e672f80e9baa0ebc4.tar.gz
* interp/metalex.lisp: "break" is now a keyword.
* interp/fnewmeta.lisp (PARSE-Jump): New. * interp/compiler.boot (compAtom): Dipatch compilation of "break" and "iterate" to... (compBreak): ... here (compIterate): and here. (jumpFromLoop): New. (compRepeatOrCollect): Initialize $lookKind, $iterateCount, and $breakCount. Set exit point for loop bodies with 'iterate' expressions. * interp/parse.boot (parseAtom): Remove. (parseTran): Adjust. * algebra/outform.spad.pamphlet: Tidy. * interp/c-util.boot ($loopKind): Declare. ($repeatBodyLabel): Likewise. ($iterateCount): Likewise. ($breakCount): Likewise.
Diffstat (limited to 'src/algebra/outform.spad.pamphlet')
-rw-r--r--src/algebra/outform.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/outform.spad.pamphlet b/src/algebra/outform.spad.pamphlet
index be457105..0ac9ba49 100644
--- a/src/algebra/outform.spad.pamphlet
+++ b/src/algebra/outform.spad.pamphlet
@@ -153,7 +153,7 @@ NumberFormats(): NFexports == NFimplementation where
-- Coefficient of 10**(i+2)
d := n rem 10
n := n quo 10
- zero? d => "iterate"
+ zero? d => iterate
m0:String := concat(new(i,plen),concat("I",new(i,pren)))
mm := concat([m0 for j in 1..d]$List(String))
-- strictly speaking the blank is gratuitous