Can't use colon in local variable name.

diff --git a/v7/src/edwin/linden.scm b/v7/src/edwin/linden.scm
index 407e655bac0af43d48004f48156c8937a6feb1e1..6206b0aff7f93fc7da898260cd4e71d76eb0f723 100644 (file)
--- 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 221d082015afc3063667772e35d893347cb691e0..8b2b889994b7296d492568aaa5aaae413abc9c1d 100644 (file)
--- 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)