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

undoing with-raw-io change

Browse source
This commit is contained in:
Alex Shinn 2012-05-06 20:15:35 +09:00
parent d62ec14dd0
commit 9e29ea721c
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/term/edit-line.scm
View file

@ -558,8 +558,7 @@
(flush-output out) (flush-output out)
(if completion (if completion
(vector-set! (car keymap) 9 completion)) (vector-set! (car keymap) 9 completion))
((if (get-key args 'no-stty?:) (lambda (in out f) (f)) with-raw-io) ((if (get-key args 'no-stty?:) (lambda (out f) (f)) with-raw-io)
in
out out
(lambda () (lambda ()
(let lp ((kmap keymap)) (let lp ((kmap keymap))
@ -599,8 +598,7 @@
(history (or (get-key rest 'history:) (make-history)))) (history (or (get-key rest 'history:) (make-history))))
(let ((edit-line (let ((edit-line
(apply make-line-editor 'no-stty?: #t 'history: history rest))) (apply make-line-editor 'no-stty?: #t 'history: history rest)))
((if (get-key args 'no-stty?:) (lambda (in out f) (f)) with-raw-io) ((if (get-key args 'no-stty?:) (lambda (out f) (f)) with-raw-io)
in
out out
(lambda () (lambda ()
(let lp () (let lp ()