aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2014-11-20 16:28:03 +0000
committerdos-reis <gdr@axiomatics.org>2014-11-20 16:28:03 +0000
commit8358dd22eb56a1b5e46e3d1e50295d53c4504165 (patch)
treed24e9b130c60a75a0aec6f4700f509bc4af77245 /src/interp
parent2e911719fbc194387c5f2525b2f8bfbc467eb211 (diff)
downloadopen-axiom-8358dd22eb56a1b5e46e3d1e50295d53c4504165.tar.gz
Do really remove the stationary directory after successful compilation.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/lisplib.boot3
1 files changed, 1 insertions, 2 deletions
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