From a4a1cbc3f3dc2b5822733ebd1f54ba7d4e133c39 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 2 Feb 2008 15:04:32 +0000
Subject: 	* interp/sys-globals.boot ($consistencyCheck): Remove. 
 ($insideCanCoerceFrom): Define. 	* interp/setq.lisp: Remove more unused
 variables. 	* interp/patches.lisp (/RF-1): Tidy. 	* interp/server.boot
 (parseAndInterpret): Likewise. 	* interp/packtran.boot
 ($useNewParser): Remove. 	* interp/ht-util.boot (parseAndEval): Tidy. 
 * interp/clam.boot ($failed): Define. 	* interp/g-timer.boot
 ($printStorageIfTrue): Likewise. 	* interp/hashcode.boot
 ($DomainsWithoutLisplibs): Likewise. 	* interp/i-coerce.boot
 ($useCoerceOrCroak): Likewise. 	* interp/i-analy.boot
 ($univariateDomains): Likewise. 	($multivariateDomains): Likewise. 
 * interp/i-object.boot ($useIntegerSubdomain): Likewise. 	*
 interp/i-syscmd.boot ($existingFiles): Likewise. 	* interp/newfort.boot
 ($fortranArrayStartingIndex): Likewise. 	* interp/setvars.boot
 (resetWorkspaceVariables): Don't reset 	$dependeeClosureAlist.

---
 src/interp/newfort.boot | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/interp/newfort.boot')

diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot
index 1ab40abe..618f4be0 100644
--- a/src/interp/newfort.boot
+++ b/src/interp/newfort.boot
@@ -1,5 +1,7 @@
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
+-- Copyright (C) 2007-2008, Gabriel Dos Reis.
+-- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
 -- modification, are permitted provided that the following conditions are
@@ -33,6 +35,8 @@
 import '"macros"
 )package "BOOT"
 
+$fortranArrayStartingIndex := 0
+
 --% Translation of Expression to FORTRAN
 assignment2Fortran1(name,e) ==
   $fortError : fluid := nil
-- 
cgit v1.2.3