From 6459b750a435d65a7e4cc2ddbdec2a729548d2f4 Mon Sep 17 00:00:00 2001
From: Stefan Israelsson Tampe <stefan.itampe@gmail.com>
Date: Fri, 13 Apr 2018 21:51:34 +0200
Subject: enum.py compiles and loads

---
 modules/language/python/module/io.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'modules/language/python/module/io.scm')

diff --git a/modules/language/python/module/io.scm b/modules/language/python/module/io.scm
index dceced8..87a2ec8 100644
--- a/modules/language/python/module/io.scm
+++ b/modules/language/python/module/io.scm
@@ -411,8 +411,13 @@
       (set self 'raw raw)))
 
   (define peek
-    (lambda (self)
-      (raise UnsupportedOperation peek))))
+    (lambda* (self #:optional (size 1))
+      (check (self port)
+        (list->string
+         (let ((r (peek-char port)))
+           (if (char? r)
+               (list r)
+               (list))))))))
 
 (define-python-class BufferedWriter (BufferedIOBase)
   (define __init__
-- 
cgit v1.2.3