fix peek
This commit is contained in:
		@@ -327,6 +327,7 @@ Int Yap_ReadlinePeekChar(int sno) {
 | 
				
			|||||||
    if (ch == '\0') {
 | 
					    if (ch == '\0') {
 | 
				
			||||||
      ch = '\n';
 | 
					      ch = '\n';
 | 
				
			||||||
    }
 | 
					    }
 | 
				
			||||||
 | 
					    return ch;
 | 
				
			||||||
  }
 | 
					  }
 | 
				
			||||||
  if (getLine(sno, StdErrStream)) {
 | 
					  if (getLine(sno, StdErrStream)) {
 | 
				
			||||||
    CACHE_REGS
 | 
					    CACHE_REGS
 | 
				
			||||||
 
 | 
				
			|||||||
		Reference in New Issue
	
	Block a user