From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 Jun 2005 01:50:46 +0000 (+0000)
Subject: Can't use colon in local variable name.
X-Git-Tag: 20090517-FFI~1276
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f685024ea2769e387e4cf02440adcd31e0435dd7;p=mit-scheme.git

Can't use colon in local variable name.
---

diff --git a/v7/src/edwin/linden.scm b/v7/src/edwin/linden.scm
index 407e655ba..6206b0aff 100644
--- a/v7/src/edwin/linden.scm
+++ b/v7/src/edwin/linden.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: linden.scm,v 1.130 2005/06/10 01:42:43 cph Exp $
+$Id: linden.scm,v 1.131 2005/06/10 01:50:39 cph Exp $
 
 Copyright 1987,1989,1991,1995,1996,2005 Massachusetts Institute of Technology
 
@@ -175,7 +175,7 @@ is used to calculate the indentation for that form."
 
 (define (find-indent-method start end)
   (let ((name (extract-string start end)))
-    (or (let ((v (name->variable (symbol 'LISP-INDENT: name) #f)))
+    (or (let ((v (name->variable (symbol 'LISP-INDENT/ name) #f)))
 	  (and v
 	       (variable-local-value start v)))
 	(let ((methods (ref-variable lisp-indent-methods start)))
diff --git a/v7/src/edwin/schmod.scm b/v7/src/edwin/schmod.scm
index 221d08201..8b2b88999 100644
--- a/v7/src/edwin/schmod.scm
+++ b/v7/src/edwin/schmod.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: schmod.scm,v 1.71 2005/06/10 01:42:52 cph Exp $
+$Id: schmod.scm,v 1.72 2005/06/10 01:50:46 cph Exp $
 
 Copyright 1986,1989,1990,1991,1992,1998 Massachusetts Institute of Technology
 Copyright 2000,2001,2002,2003,2004,2005 Massachusetts Institute of Technology
@@ -159,7 +159,7 @@ The following commands evaluate Scheme expressions:
 
 (define (scheme-indent-method name method)
   (define-variable-local-value! (selected-buffer)
-      (name->variable (symbol 'LISP-INDENT: name) 'INTERN)
+      (name->variable (symbol 'LISP-INDENT/ name) 'INTERN)
     method))
 
 (for-each (lambda (entry)