aboutsummaryrefslogtreecommitdiff
path: root/src
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
parent2e911719fbc194387c5f2525b2f8bfbc467eb211 (diff)
downloadopen-axiom-8358dd22eb56a1b5e46e3d1e50295d53c4504165.tar.gz
Do really remove the stationary directory after successful compilation.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog4
-rw-r--r--src/interp/lisplib.boot3
2 files changed, 5 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 191bda02..d4d89f1b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
2014-11-20 Gabriel Dos Reis <gdr@integrable-solutions.net>
+ * interp/lisplib.boot (lisplibDoRename): Fix thinko.
+
+2014-11-20 Gabriel Dos Reis <gdr@integrable-solutions.net>
+
* lisp/core.lisp.in (forkStreamByName): New.
* interp/int-top.boot (ncIntLoop): Use it.
* interp/spad-parser.boot (parseSpadFile): Likewise.
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