diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-06-18 07:15:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-06-18 07:15:39 +0000 |
| commit | b0cf190c03229e5f09284c80b26c0b8a1feafba6 (patch) | |
| tree | 441973b3824d9f822245bd07acce07ed01cc1835 /src/interp/fortcall.boot | |
| parent | 01ee31f560d8ae13ea2518329a7a3ba55aad8150 (diff) | |
| download | open-axiom-b0cf190c03229e5f09284c80b26c0b8a1feafba6.tar.gz | |
Misc cleanup.
Diffstat (limited to 'src/interp/fortcall.boot')
| -rw-r--r-- | src/interp/fortcall.boot | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot index 8184539d..a906d3b8 100644 --- a/src/interp/fortcall.boot +++ b/src/interp/fortcall.boot @@ -39,11 +39,10 @@ namespace BOOT $nagMessages := nil makeVector(elts, t) == - MAKE_-ARRAY(#elts, KEYWORD::ELEMENT_-TYPE, t or true, - KEYWORD::INITIAL_-CONTENTS, elts) + MAKE_-ARRAY(#elts, element_-type <- t or true, initial_-contents <- elts) makeList(n, e) == - MAKE_-LIST(n, KEYWORD::INITIAL_-ELEMENT, e) + MAKE_-LIST(n, initial_-element <- e) makeFort(name,args,decls,results,returnType,aspInfo) == -- Create an executable Fortran file to call a given library function, |