Fixed bug in stdio->stdports -- it was using fdes->inport to make the
output ports.
This commit is contained in:
		
							parent
							
								
									0229b80a6c
								
							
						
					
					
						commit
						b980922f0d
					
				
							
								
								
									
										10
									
								
								Error-log
								
								
								
								
							
							
						
						
									
										10
									
								
								Error-log
								
								
								
								
							|  | @ -122,3 +122,13 @@ reported by Michael Sperber 2 Dec 96. fix by bdc | |||
| 
 | ||||
| signals1.c missing on most ports | ||||
| reported by Mike Gunter 10 Dec 96. fix by ?????????? | ||||
| 
 | ||||
| scsh.scm | ||||
|     stdio->stdports was using fdes->inport to make the current-output-port | ||||
|     and the current-error-port. The manual also had this bug. | ||||
| 
 | ||||
|     The manual also used (exit (run ...)) in section 9.1.7, which should | ||||
|     be (exit (status:exit-val (run ...))). | ||||
| 
 | ||||
|     Reported by euler@lavielle.COM (Lutz Euler) 2/24/97. | ||||
|     Fixed by Shivers 2/24/97. | ||||
|  |  | |||
|  | @ -554,8 +554,8 @@ | |||
| 
 | ||||
| (define (stdio->stdports) | ||||
|   (set-current-input-port!  (fdes->inport 0)) | ||||
|   (set-current-output-port! (fdes->inport 1)) | ||||
|   (set-error-output-port!   (fdes->inport 2))) | ||||
|   (set-current-output-port! (fdes->outport 1)) | ||||
|   (set-error-output-port!   (fdes->outport 2))) | ||||
| 
 | ||||
| (define (with-stdio-ports* thunk) | ||||
|   (with-current-input-port (fdes->inport 0) | ||||
|  |  | |||
		Loading…
	
		Reference in New Issue
	
	 shivers
						shivers