From 8358dd22eb56a1b5e46e3d1e50295d53c4504165 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 20 Nov 2014 16:28:03 +0000 Subject: Do really remove the stationary directory after successful compilation. --- src/ChangeLog | 4 ++++ src/interp/lisplib.boot | 3 +-- 2 files changed, 5 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 191bda02..d4d89f1b 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2014-11-20 Gabriel Dos Reis + + * interp/lisplib.boot (lisplibDoRename): Fix thinko. + 2014-11-20 Gabriel Dos Reis * lisp/core.lisp.in (forkStreamByName): New. 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