diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-09-26 15:31:13 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-09-26 15:31:13 +0000 |
| commit | feb9d8d42ee30dbdad5184b654e3de461c06e7e7 (patch) | |
| tree | 4cc72c9fe189ca8bd74296a36382ec916647260e /src/interp/fortcall.boot | |
| parent | 91bd7571dc0baf8d17047d553e4616dd587c0ffb (diff) | |
| download | open-axiom-feb9d8d42ee30dbdad5184b654e3de461c06e7e7.tar.gz | |
More cleanup
Diffstat (limited to 'src/interp/fortcall.boot')
| -rw-r--r-- | src/interp/fortcall.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot index efae972d..0f11e0ae 100644 --- a/src/interp/fortcall.boot +++ b/src/interp/fortcall.boot @@ -470,7 +470,7 @@ spadify(l,results,decls,names,actual) == :spadForms] -- Result is a Boolean vector or array LISTP(ty) and first(ty)="logical" and #ty=2 => - dim := getVal(first rest ty,names,actual) + dim := getVal(second ty,names,actual) spadForms := [makeResultRecord(name,ty,_ [int2Bool ELT(fort,i) for i in 0..dim-1]), :spadForms] LISTP(ty) and first(ty)="logical" => |