(* Copyright (C) 1989, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* Last modified on Tue Jan 28 12:09:43 PST 1992 by kalsow     *)
(*      modified on Thu Nov  2 18:13:15 1989 by muller         *)

INTERFACE TextRd;

IMPORT Rd;

TYPE
  T <: Rd.T;

PROCEDURE New (t: TEXT): T;
(* it is a checked runtime error to pass NIL *)

END TextRd.