From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Sun, 13 Oct 1991 01:50:08 +0000 (+0000)
Subject: Make "WITH-" expressions do the right thing.  This should cause on
X-Git-Tag: 20090517-FFI~10152
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8b3d663e16b9e68029b089a1af3be228ef88c907;p=mit-scheme.git

Make "WITH-" expressions do the right thing.  This should cause on
problems with forms like WITHOUT-INTERRUPTS, since I've included a
hyphen after "with".
---

diff --git a/v7/src/edwin/linden.scm b/v7/src/edwin/linden.scm
index 7f9f46d5a..683b64a78 100644
--- a/v7/src/edwin/linden.scm
+++ b/v7/src/edwin/linden.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/linden.scm,v 1.121 1991/05/17 18:45:31 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/linden.scm,v 1.122 1991/10/13 01:50:08 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -170,6 +170,11 @@
 			     (<= 3 (string-length name))
 			     (substring-ci=? "DEF" 0 3 name 0 3)))
 		    (lisp-indent-definition state indent-point normal-indent))
+		   ((and (not method)
+			 (<= 5 (string-length name))
+			 (substring-ci=? "WITH-" 0 5 name 0 5))
+		    (lisp-indent-special-form 1 state indent-point
+					      normal-indent))
 		   ((integer? method)
 		    (lisp-indent-special-form method state indent-point
 					      normal-indent))