From 954fc18dd25208a3e35608a012fbae017b9ac203 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Tue, 26 May 1992 23:23:43 +0000 Subject: [PATCH] *** empty log message *** --- v8/src/runtime/infutl.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm index 162d81d34..da7eb3044 100644 --- a/v8/src/runtime/infutl.scm +++ b/v8/src/runtime/infutl.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.35 1992/05/26 23:20:17 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.36 1992/05/26 23:23:42 mhwu Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -439,9 +439,9 @@ MIT in each case. |# (cp-table (make-vector window-size)) (port/read-char (or (input-port/operation/read-char input-port) - (if-fail "Port doesn't support read-char" input-port))) + (error "Port doesn't support read-char" input-port))) (port/read-substring - (input-port/operation/read-substring inport))) + (input-port/operation/read-substring input-port))) (define (displacement->cp-index displacement cp) (let ((index (fix:- cp displacement))) -- 2.25.1