diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/lisplib.boot | 3 |
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 |