- 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