From 40d322ca5fa9bbddf57905b81d69b0a24666d51f Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Mon, 10 Apr 2017 22:19:40 +0900
Subject: [PATCH] removing duplicate definition of ixon (issue #402)
---
lib/chibi/stty.scm | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/lib/chibi/stty.scm b/lib/chibi/stty.scm
index 7e404144..66758496 100644
--- a/lib/chibi/stty.scm
+++ b/lib/chibi/stty.scm
@@ -9,10 +9,7 @@
(define stty-lookup (make-hash-table eq?))
(for-each
- (lambda (c)
- (let ((type (cadr c))
- (value (car (cddr c))))
- (hash-table-set! stty-lookup (car c) (cdr c))))
+ (lambda (c) (hash-table-set! stty-lookup (car c) (cdr c)))
;; ripped from the stty man page, then trimmed down to what seemed
;; available on most systems
@@ -148,7 +145,7 @@
;;(-pass8 combine #f) ; same as parenb istrip cs7
(raw combine (not ignbrk brkint ignpar parmrk
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
;;(-raw combine #f) ; same as cooked
(sane combine (cread brkint icrnl imaxbel opost onlcr