Same bug as #144 for .

Author: dvanhorn

langs/evildoer/io.c

@@ -14,7 +14,7 @@ val_t peek_byte(void)
 {
   char c = getc(in);
   ungetc(c, in);
-  return (c == EOF) ? val_wrap_eof() : val_wrap_int(c);
+  return (c == EOF) ? val_wrap_eof() : val_wrap_byte(c);
 
 }
 

langs/extort/io.c

@@ -14,7 +14,7 @@ val_t peek_byte(void)
 {
   char c = getc(in);
   ungetc(c, in);
-  return (c == EOF) ? val_wrap_eof() : val_wrap_int(c);
+  return (c == EOF) ? val_wrap_eof() : val_wrap_byte(c);
 
 }
 

langs/fraud/io.c

@@ -14,7 +14,7 @@ val_t peek_byte(void)
 {
   char c = getc(in);
   ungetc(c, in);
-  return (c == EOF) ? val_wrap_eof() : val_wrap_int(c);
+  return (c == EOF) ? val_wrap_eof() : val_wrap_byte(c);
 
 }
 

langs/hoax/io.c

@@ -14,7 +14,7 @@ val_t peek_byte(void)
 {
   char c = getc(in);
   ungetc(c, in);
-  return (c == EOF) ? val_wrap_eof() : val_wrap_int(c);
+  return (c == EOF) ? val_wrap_eof() : val_wrap_byte(c);
 
 }
 

langs/hustle/io.c

@@ -14,7 +14,7 @@ val_t peek_byte(void)
 {
   char c = getc(in);
   ungetc(c, in);
-  return (c == EOF) ? val_wrap_eof() : val_wrap_int(c);
+  return (c == EOF) ? val_wrap_eof() : val_wrap_byte(c);
 
 }
 

langs/iniquity/io.c

@@ -14,7 +14,7 @@ val_t peek_byte(void)
 {
   char c = getc(in);
   ungetc(c, in);
-  return (c == EOF) ? val_wrap_eof() : val_wrap_int(c);
+  return (c == EOF) ? val_wrap_eof() : val_wrap_byte(c);
 
 }
 

langs/jig/io.c

@@ -14,7 +14,7 @@ val_t peek_byte(void)
 {
   char c = getc(in);
   ungetc(c, in);
-  return (c == EOF) ? val_wrap_eof() : val_wrap_int(c);
+  return (c == EOF) ? val_wrap_eof() : val_wrap_byte(c);
 
 }
 

ziggy/src/test/test-runner.rkt

@@ -228,7 +228,8 @@
 
     (check-equal? (run "ab" '(peek-byte)) (cons 97 ""))
     (check-equal? (run "ab" '(begin (peek-byte) (read-byte))) (cons 97 ""))
-    (check-equal? (run "†" '(read-byte)) (cons 226 "")))
+    (check-equal? (run "†" '(read-byte)) (cons 226 ""))
+    (check-equal? (run "†" '(peek-byte)) (cons 226 "")))
 
   {:> E1}
   (begin ;; Extort