From 7b936e419048b862896a574e20ecd136658f40ff Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 23 Jan 2017 23:21:06 +0900 Subject: [PATCH] adding dummy with-raw-io and get-terminal-width defs --- lib/chibi/term/edit-line.sld | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/chibi/term/edit-line.sld b/lib/chibi/term/edit-line.sld index 377c506c..c87a9fe5 100644 --- a/lib/chibi/term/edit-line.sld +++ b/lib/chibi/term/edit-line.sld @@ -27,8 +27,11 @@ (chibi ast))) (else (begin + (define (with-raw-io port thunk) + (with-stty '(not icanon isig echo) thunk port)) + (define (get-terminal-width . x) 80) (define-syntax protect - (syntax-rules () (protect . x) (guard . x))) + (syntax-rules () ((protect . x) (guard . x)))) (define (print-exception exn . o) (let ((out (if (pair? o) (car o) (current-error-port)))) (write exn out)