From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Nov 1999 03:38:10 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4427
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=297608b7a3b69c3afce0cd3acde2e65067c10920;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/edwin/modes.scm b/v7/src/edwin/modes.scm
index ccfe0de5b..ae599e845 100644
--- a/v7/src/edwin/modes.scm
+++ b/v7/src/edwin/modes.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: modes.scm,v 1.29 1999/11/01 01:17:36 cph Exp $
+;;; $Id: modes.scm,v 1.30 1999/11/01 03:38:10 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -47,9 +47,9 @@
       (error:wrong-type-argument super-mode "major mode" 'MAKE-MODE))
   (let ((sname (symbol->string name))
 	(major? (if major? #t #f))
-	(super-comtabs (if super-mode (mode-comtabs super-mode) '()))
-	(description (doc-string->posn sname description)))
-    (let ((mode (string-table-get editor-modes sname)))
+	(super-comtabs (if super-mode (mode-comtabs super-mode) '())))
+    (let ((mode (string-table-get editor-modes sname))
+	  (description (doc-string->posn sname description)))
       (if mode
 	  (begin
 	    (set-mode-major?! mode major?)