- fixed a little typo in with-output-to-load-script*

This commit is contained in:
frese 2004-02-01 23:14:39 +00:00
parent 21345178f6
commit dc75e91598
1 changed files with 3 additions and 2 deletions

View File

@ -1,5 +1,5 @@
;;; Installation library for scsh modules.
;;; $Id: install-lib.scm,v 1.6 2004/02/01 17:22:43 michel-schinz Exp $
;;; $Id: install-lib.scm,v 1.7 2004/02/01 23:14:39 frese Exp $
;; TODO
;; - add support for communication between configure and pkg-def.scm
@ -414,7 +414,8 @@
(define (with-output-to-load-script* thunk)
(let ((dir (get-directory 'base #t)))
(create-directory&parents dir)
(if (not (or (get-option-value 'dry-run) (get-option 'non-shared-only)))
(if (not (or (get-option-value 'dry-run)
(get-option-value 'non-shared-only)))
(with-output-to-file (absolute-file-name "load.scm" dir)
thunk))))