diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-13 21:51:34 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-13 21:51:34 +0200 |
| commit | 6459b750a435d65a7e4cc2ddbdec2a729548d2f4 (patch) | |
| tree | 21ebc5a7335708172fcc298b173051d6c643fce7 /modules/language/python/module/io.scm | |
| parent | 895a5f7a8e6ab92b56f19810e94320b8d337c4a8 (diff) | |
enum.py compiles and loads
Diffstat (limited to 'modules/language/python/module/io.scm')
| -rw-r--r-- | modules/language/python/module/io.scm | 9 |
1 files changed, 7 insertions, 2 deletions
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__ |