From dc75e91598fd5d1613220002baaa252a2fd21cb7 Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Sun, 1 Feb 2004 23:14:39 +0000
Subject: [PATCH] - fixed a little typo in with-output-to-load-script*

---
 scheme/install-lib/install-lib.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scheme/install-lib/install-lib.scm b/scheme/install-lib/install-lib.scm
index b84a163..0be104d 100755
--- a/scheme/install-lib/install-lib.scm
+++ b/scheme/install-lib/install-lib.scm
@@ -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))))