From 8358dd22eb56a1b5e46e3d1e50295d53c4504165 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 20 Nov 2014 16:28:03 +0000
Subject: Do really remove the stationary directory after successful
 compilation.

---
 src/interp/lisplib.boot | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot
index 97211017..b26cc2af 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot
@@ -587,8 +587,7 @@ lisplibDoRename db ==
     modpath := filePathString
       makeFilePath(type <- $faslType,defaults <- filePath libCodeStream lib)
     do
-      renameFile(modpath,output) = 0 => nil
-      copyFile(modpath,output)
+      renameFile(modpath,output) = 0 or copyFile(modpath,output)
       removeFile libStationaryDirname lib
     output
   removeFile libDirname lib
-- 
cgit v1.2.3