Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

removing port? definition now in core

Browse source
This commit is contained in:
Alex Shinn 2010-09-19 12:16:27 +09:00
parent acf3d1c120
commit c91d982473
1 changed files with 0 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/stty.scm
View file

@ -160,8 +160,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; high-level interface ;; high-level interface
(define (port? x) (or (input-port? x) (output-port? x)))
(define (stty . args) (define (stty . args)
(let* ((port (if (and (pair? args) (port? (car args))) (let* ((port (if (and (pair? args) (port? (car args)))
(car args) (car args)