- fixed a little typo in with-output-to-load-script*
This commit is contained in:
parent
21345178f6
commit
dc75e91598
|
@ -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))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue