From 42cf0984b569e49060252e536c0c7e7aee469873 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 30 Apr 2011 18:55:21 +0000
Subject: 	* More cleanup

---
 src/interp/fortcall.boot | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot
index 7a57359a..4ccdf592 100644
--- a/src/interp/fortcall.boot
+++ b/src/interp/fortcall.boot
@@ -401,11 +401,11 @@ vec2Lists u == [vec2Lists1 u.i for i in 0..#u-1]
 spad2lisp(u) ==
   -- Turn complexes into arrays of floats
   first first(u)="Complex" =>
-    makeVector([makeVector([second u,CDDR u],"%DoubleFloat")],NIL)
+    makeVector([makeVector([second u,CDDR u],"%DoubleFloat")],nil)
   -- Turn arrays of complexes into arrays of floats so that tarnsposing
   -- them puts them in the correct fortran order
   first first(u)="Matrix" and first second first(u) = "Complex" =>
-    makeVector([makeVector(complexRows vec2Lists rest u,"%DoubleFloat")],NIL)
+    makeVector([makeVector(complexRows vec2Lists rest u,"%DoubleFloat")],nil)
   rest(u)
 
 invokeFortran(objFile,args,dummies,decls,results,actual) ==
@@ -425,7 +425,7 @@ invokeFortran(objFile,args,dummies,decls,results,actual) ==
 int2Bool u ==
   -- Return something which looks like an axiom boolean
   u=1 => "TRUE"
-  NIL
+  nil
 
 makeResultRecord(name,type,value) ==
   -- Take an object returned by the NAG routine and make it into an AXIOM
@@ -715,10 +715,10 @@ nagCall(objFiles,nfile,data,results,tmpFiled,tmpFiler) ==
 
 protectedNagCall(objFiles,nfile,data,results) ==
  errors :=true
- val:=NIL
+ val:=nil
  td:=generateDataName()
  tr:=generateResultsName()
- UNWIND_-PROTECT( (val:=nagCall(objFiles,nfile,data,results,td,tr) ;errors :=NIL),
+ UNWIND_-PROTECT( (val:=nagCall(objFiles,nfile,data,results,td,tr) ;errors :=nil),
         errors =>( resetStackLimits(); sendNagmanErrorSignal();cleanUpAfterNagman(td,tr,objFiles)))
  val
 
-- 
cgit v1.2.3