aboutsummaryrefslogtreecommitdiff
path: root/src/interp/newfort.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2012-05-20 14:39:19 +0000
committerdos-reis <gdr@axiomatics.org>2012-05-20 14:39:19 +0000
commitc96ac1e9ec3aae8744293a052d85d7decddcd52a (patch)
treef2871cfdfcd3f2db00f1c0ae0c74a7b69f868b7b /src/interp/newfort.boot
parentb1cd408a22e554e9e9a950aef3a89ea9f665a5b6 (diff)
downloadopen-axiom-c96ac1e9ec3aae8744293a052d85d7decddcd52a.tar.gz
* boot/ast.boot (shoeCompTran): Simplify.
(shoeCompTran1): Partially defer translation of fluid variable definition. (bindFluidVars!): New. Complete translation. (groupFluidVars): New. * interp/newfort.boot (fortFormatIntrinsics): Remove redundant return.
Diffstat (limited to 'src/interp/newfort.boot')
-rw-r--r--src/interp/newfort.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot
index 32ece73c..858f5c77 100644
--- a/src/interp/newfort.boot
+++ b/src/interp/newfort.boot
@@ -727,7 +727,7 @@ fortFormatCharacterTypes(names) ==
fortFormatIntrinsics(l) ==
$fortError : local := nil
- null l => return nil
+ null l => nil
displayLines fortran2Lines ['"INTRINSIC ",:addCommas(l)]