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

removing duplicate definition of ixon (issue #402)

Browse source
This commit is contained in:
Alex Shinn 2017-04-10 22:19:40 +09:00
parent 9698d64ae5
commit 40d322ca5f
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/chibi/stty.scm
View file

@ -9,10 +9,7 @@
(define stty-lookup (make-hash-table eq?)) (define stty-lookup (make-hash-table eq?))
(for-each (for-each
(lambda (c) (lambda (c) (hash-table-set! stty-lookup (car c) (cdr c)))
(let ((type (cadr c))
(value (car (cddr c))))
(hash-table-set! stty-lookup (car c) (cdr c))))
;; ripped from the stty man page, then trimmed down to what seemed ;; ripped from the stty man page, then trimmed down to what seemed
;; available on most systems ;; available on most systems
@ -148,7 +145,7 @@
;;(-pass8 combine #f) ; same as parenb istrip cs7 ;;(-pass8 combine #f) ; same as parenb istrip cs7
(raw combine (not ignbrk brkint ignpar parmrk (raw combine (not ignbrk brkint ignpar parmrk
inpck istrip inlcr igncr icrnl)) inpck istrip inlcr igncr icrnl))
(ixon combine (ixoff ixany imaxbel opost isig icanon)) ;; xcase iuclc ;;(ixon combine (ixoff ixany imaxbel opost isig icanon)) ;; xcase iuclc
;;(time combine #f) ; 0 ;;(time combine #f) ; 0
;;(-raw combine #f) ; same as cooked ;;(-raw combine #f) ; same as cooked
(sane combine (cread brkint icrnl imaxbel opost onlcr (sane combine (cread brkint icrnl imaxbel opost onlcr