Hacked code so that you don't get [for-syntax] noise during loads when
in batch mode.
This commit is contained in:
		
							parent
							
								
									ddddd1d31b
								
							
						
					
					
						commit
						934905ed57
					
				|  | @ -290,9 +290,11 @@ | |||
| 	       tower			;? | ||||
| 	       (delay (let ((p (eval `(a-package ((for-syntax ,id)) ,@clauses) | ||||
| 				     config))) | ||||
| 			(ensure-loaded (make-structure p | ||||
| 						       (lambda () (make-simple-interface #f '())) | ||||
| 						       'for-syntax)) | ||||
| 			(really-ensure-loaded | ||||
| 			  (and (not (batch-mode?)) (current-output-port)) | ||||
| 			  (make-structure p | ||||
| 					  (lambda () (make-simple-interface #f '())) | ||||
| 					  'for-syntax)) | ||||
| 			(cons eval p)))))) | ||||
|     config)) | ||||
| 
 | ||||
|  |  | |||
		Loading…
	
		Reference in New Issue
	
	 shivers
						shivers