diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-06-15 00:57:36 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-06-15 00:57:36 +0000 |
| commit | 372cd9bfe6aa41bacd17b25579a10a69b3933e2a (patch) | |
| tree | c508151b2d0bfea6724f14c0b04936319b6d2387 /src/algebra/fortran.spad.pamphlet | |
| parent | 12b1b74f1e952694c8f182eb2b4ab369f6005ddf (diff) | |
| download | open-axiom-372cd9bfe6aa41bacd17b25579a10a69b3933e2a.tar.gz | |
* algebra/any.spad.pamphlet (Any): Remove domainOf, objectOf, and
showTypeInOutput. Tidy.
* algebra/fortran.spad.pamphlet: Coerce Any objects to Output;
don't use objectOf.
Diffstat (limited to 'src/algebra/fortran.spad.pamphlet')
| -rw-r--r-- | src/algebra/fortran.spad.pamphlet | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/fortran.spad.pamphlet b/src/algebra/fortran.spad.pamphlet index 77385b00..aa9902d4 100644 --- a/src/algebra/fortran.spad.pamphlet +++ b/src/algebra/fortran.spad.pamphlet @@ -68,12 +68,12 @@ Result():Exports==Implementation where display(v:Any,d:SExpression):O == not list? d => error "Domain form is non-list" #d=1 => - showScalarValuesFlag => objectOf v + showScalarValuesFlag => v::OutputForm cleanUpDomainForm d car(d) = convert("Complex"::Symbol)@SExpression => - showScalarValuesFlag => objectOf v + showScalarValuesFlag => v::OutputForm cleanUpDomainForm d - showArrayValuesFlag => objectOf v + showArrayValuesFlag => v::OutputForm cleanUpDomainForm d makeEntry(k:Symbol,v:Any):O == |