Hack: removed read-char to hack the bogus skip-char-set
This commit is contained in:
		
							parent
							
								
									de5a415580
								
							
						
					
					
						commit
						3111fa93be
					
				| 
						 | 
				
			
			@ -57,7 +57,14 @@
 | 
			
		|||
      (call-with-input-file fname
 | 
			
		||||
	(lambda (port)
 | 
			
		||||
	  (skip-char-set non-newline port)	; Skip the first
 | 
			
		||||
	  (read-char port)			; line of text.
 | 
			
		||||
	
 | 
			
		||||
	  ; WARNING JMG HACK
 | 
			
		||||
 | 
			
		||||
;	  (read-char port)    ; JMG this should kill the newline
 | 
			
		||||
			      ; but since skip-char-set is corrupt
 | 
			
		||||
	                      ; (it eats the last char)
 | 
			
		||||
	                      ; I omit the read-char to hack around
 | 
			
		||||
 | 
			
		||||
	  (read-secondary-args port))))))
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue