[bugfix] make-promise makes a promise that is done all along
This commit is contained in:
		
							parent
							
								
									36e0aa6f69
								
							
						
					
					
						commit
						195ccf199d
					
				|  | @ -926,7 +926,7 @@ | ||||||
|   (define (make-promise obj) |   (define (make-promise obj) | ||||||
|     (if (promise? obj) |     (if (promise? obj) | ||||||
| 	obj | 	obj | ||||||
| 	(make-promise% #f obj))) | 	(make-promise% #t obj))) | ||||||
| 
 | 
 | ||||||
|   (export delay-force delay force make-promise promise?)) |   (export delay-force delay force make-promise promise?)) | ||||||
| 
 | 
 | ||||||
|  |  | ||||||
		Loading…
	
		Reference in New Issue
	
	 Yuichi Nishiwaki
						Yuichi Nishiwaki