aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/forttyp.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-06-21 03:14:17 +0000
committerdos-reis <gdr@axiomatics.org>2010-06-21 03:14:17 +0000
commit640d839b4de4d0daf0dde00ba08eab6d264160ad (patch)
tree3b5565cbc731bd2455a13c72a9a9c539f3088310 /src/algebra/forttyp.spad.pamphlet
parentbf21f6c3c98ea62bbd952ecd2382b63f4cd370bb (diff)
downloadopen-axiom-640d839b4de4d0daf0dde00ba08eab6d264160ad.tar.gz
* algebra/sgcf.spad.pamphlet (SymmetricGroupCombinatoricFunctions)
[listYoungTableaus]: Fix thinko. Don't use lattice in its own initialization before it is defined.
Diffstat (limited to 'src/algebra/forttyp.spad.pamphlet')
-rw-r--r--src/algebra/forttyp.spad.pamphlet1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/algebra/forttyp.spad.pamphlet b/src/algebra/forttyp.spad.pamphlet
index c1800ccd..ca059628 100644
--- a/src/algebra/forttyp.spad.pamphlet
+++ b/src/algebra/forttyp.spad.pamphlet
@@ -130,6 +130,7 @@ FortranScalarType() : exports == implementation where
s = upperDoubleSymbol => ["double precision"]$Rep
s = doubleComplexSymbol => ["double complex"]$Rep
s = upperDoubleCOmplexSymbol => ["double complex"]$Rep
+ error "invalid as a Fortran Type"
coerce(s:String):$ ==
s = "real" => ["real"]$Rep