diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-10 23:30:02 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-10 23:30:02 +0000 |
| commit | 7c7d44f1dc284e4c4e231d97023aa87ecd5f8e44 (patch) | |
| tree | db90d375dde6576789ad23ae39dc5de66b148e57 /src/algebra/mkfunc.spad.pamphlet | |
| parent | e6b1636fe3b19b148f347f6b9f00642db83c5ddc (diff) | |
| download | open-axiom-7c7d44f1dc284e4c4e231d97023aa87ecd5f8e44.tar.gz | |
* 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.
Diffstat (limited to 'src/algebra/mkfunc.spad.pamphlet')
| -rw-r--r-- | src/algebra/mkfunc.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/mkfunc.spad.pamphlet b/src/algebra/mkfunc.spad.pamphlet index 288a3a82..91f99664 100644 --- a/src/algebra/mkfunc.spad.pamphlet +++ b/src/algebra/mkfunc.spad.pamphlet @@ -122,7 +122,7 @@ InputForm(): flatten0(s, sy, n) == atom? s => [nil(), s] - a := convert(concat(string sy, convert(n)@String)::Symbol)@% + a := convert(concat(string sy, string n)::Symbol)@% l := destruct s l2 := [flatten0(x, sy, n := n+1) for x in rest l] [concat(concat [u.lst for u in l2], conv([convert( |