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

adding dummy with-raw-io and get-terminal-width defs

Browse source
This commit is contained in:
Alex Shinn 2017-01-23 23:21:06 +09:00
parent ac6d0124c4
commit 7b936e4190
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/chibi/term/edit-line.sld
View file

@ -27,8 +27,11 @@
(chibi ast))) (chibi ast)))
(else (else
(begin (begin
(define (with-raw-io port thunk)
(with-stty '(not icanon isig echo) thunk port))
(define (get-terminal-width . x) 80)
(define-syntax protect (define-syntax protect
(syntax-rules () (protect . x) (guard . x))) (syntax-rules () ((protect . x) (guard . x))))
(define (print-exception exn . o) (define (print-exception exn . o)
(let ((out (if (pair? o) (car o) (current-error-port)))) (let ((out (if (pair? o) (car o) (current-error-port))))
(write exn out) (write exn out)