From cf059a14f4b2cc07d255947db84865e1764e3ce2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 25 Feb 1999 18:23:55 +0000 Subject: [PATCH] Guarantee that port-type specifies standard operations. --- v7/src/runtime/port.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/port.scm b/v7/src/runtime/port.scm index 4acce0dc8..fd1e31430 100644 --- a/v7/src/runtime/port.scm +++ b/v7/src/runtime/port.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: port.scm,v 1.18 1999/02/25 18:23:06 cph Exp $ +$Id: port.scm,v 1.19 1999/02/25 18:23:55 cph Exp $ Copyright (c) 1991-1999 Massachusetts Institute of Technology @@ -396,7 +396,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (or (assq 'WRITE-CHAR operations) (assq 'WRITE-SUBSTRING operations)))) (if (not (or input? output?)) - (error "No standard operations specified:" operations)) + (error "Port type must implement one of the following operations:" + '(READ-CHAR WRITE-CHAR WRITE-SUBSTRING))) (install-operations! type input? input-operation-names input-operation-modifiers -- 2.25.1