aboutsummaryrefslogtreecommitdiff
path: root/src/interp/fortcall.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-04-12 03:49:24 +0000
committerdos-reis <gdr@axiomatics.org>2009-04-12 03:49:24 +0000
commit865463536e19a517fecb78ddc9bfdfa4088e0b71 (patch)
treee837984ccbb6d5ca1a6e1eb7fe742f53539aba14 /src/interp/fortcall.boot
parent2fe793e09e8508311fa2bfda4870edc288fa0495 (diff)
downloadopen-axiom-865463536e19a517fecb78ddc9bfdfa4088e0b71.tar.gz
Fix SF/2754400
* interp/setvars.boot (setOutputFortran): Transform pathname from symbol to string. * testsuite/interpreter/sf-2754400.input: New.
Diffstat (limited to 'src/interp/fortcall.boot')
-rw-r--r--src/interp/fortcall.boot3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot
index a8322d8f..78918e52 100644
--- a/src/interp/fortcall.boot
+++ b/src/interp/fortcall.boot
@@ -35,6 +35,9 @@
import sys_-macros
namespace BOOT
+--%
+$nagMessages := nil
+
makeVector(elts, t) ==
MAKE_-ARRAY(#elts, KEYWORD::ELEMENT_-TYPE, t or true,
KEYWORD::INITIAL_-CONTENTS, elts)