Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 22:29:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding port? predicate

Browse source
This commit is contained in:
Alex Shinn 2010-09-17 08:11:25 +09:00
parent 6c074d686a
commit 69f3dcc3fd
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/init.scm
View file

@ -525,6 +525,8 @@
;; I/O utils
(define (port? x) (or (input-port? x) (output-port? x)))
(define (char-ready? . o)
(not (eof-object? (peek-char (if (pair? o) (car o) (current-input-port))))))