diff options
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 == |