From 297608b7a3b69c3afce0cd3acde2e65067c10920 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Nov 1999 03:38:10 +0000
Subject: [PATCH] Fix typo.

---
 v7/src/edwin/modes.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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?)
-- 
2.25.1