diff options
author | dos-reis <gdr@axiomatics.org> | 2013-05-27 20:17:06 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-05-27 20:17:06 +0000 |
commit | 8f489dc61cc095daa49c14cfe80114d041965d3a (patch) | |
tree | bb16c5ab677e80269f9c0c5cd70193183805226a /src/interp/nlib.lisp | |
parent | 62d763cdf14aeb8ea9ea956c0e35c2287ea12726 (diff) | |
download | open-axiom-8f489dc61cc095daa49c14cfe80114d041965d3a.tar.gz |
* interp/sys-utility.boot ($ERASE): Remove.
Diffstat (limited to 'src/interp/nlib.lisp')
-rw-r--r-- | src/interp/nlib.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp index 243987a0..7fdc8a17 100644 --- a/src/interp/nlib.lisp +++ b/src/interp/nlib.lisp @@ -152,7 +152,8 @@ (push (setq entry (cons key (cons 0 value-or-pos))) (|libIndexTable| rstream)) (progn - (if (stringp (caddr entry)) ($erase (caddr entry))) + (if (stringp (caddr entry)) + (|removeFile| (|makeFullFilePath| (caddr entry)))) (setf (cddr entry) value-or-pos))) entry)) |