scsh-conservatory
/
scsh-install-lib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/install-lib/install-lib.scm
View File

@ -1,5 +1,5 @@
;;; Installation library for scsh modules. ;;; 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 ;; TODO
;; - add support for communication between configure and pkg-def.scm ;; - add support for communication between configure and pkg-def.scm
@ -414,7 +414,8 @@
(define (with-output-to-load-script* thunk) (define (with-output-to-load-script* thunk)
(let ((dir (get-directory 'base #t))) (let ((dir (get-directory 'base #t)))
(create-directory&parents dir) (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) (with-output-to-file (absolute-file-name "load.scm" dir)
thunk)))) thunk))))