From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Mar 2001 21:14:58 +0000 (+0000)
Subject: Add more CALL-WITH-*-FILE entries to indentation table.
X-Git-Tag: 20090517-FFI~2902
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b55c0ae4de2a9385a449b285b5eea32ef51b4902;p=mit-scheme.git

Add more CALL-WITH-*-FILE entries to indentation table.
---

diff --git a/v7/src/edwin/schmod.scm b/v7/src/edwin/schmod.scm
index deb580a22..3f3a1ac43 100644
--- a/v7/src/edwin/schmod.scm
+++ b/v7/src/edwin/schmod.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: schmod.scm,v 1.47 2000/03/02 05:31:55 cph Exp $
+;;; $Id: schmod.scm,v 1.48 2001/03/15 21:14:58 cph Exp $
 ;;;
-;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -16,7 +16,8 @@
 ;;;
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
 
 ;;;; Scheme Mode
 
@@ -164,6 +165,10 @@ The following commands evaluate Scheme expressions:
 	  (NAMED-LAMBDA . 1)
 	  (USING-SYNTAX . 1)
 
+	  (CALL-WITH-APPEND-FILE . 1)
+	  (CALL-WITH-BINARY-APPEND-FILE . 1)
+	  (CALL-WITH-BINARY-INPUT-FILE . 1)
+	  (CALL-WITH-BINARY-OUTPUT-FILE . 1)
 	  (WITH-INPUT-FROM-PORT . 1)
 	  (WITH-INPUT-FROM-STRING . 1)
 	  (WITH-OUTPUT-TO-PORT . 1)