From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Sun, 28 Mar 2010 20:26:01 +0000 (-0700)
Subject: Typo.
X-Git-Tag: 20100708-Gtk~71^2~15
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=36b23e6b0a7ff234228aab2b6a710cc3486dc5b1;p=mit-scheme.git

Typo.
---

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 2dde5457e..793ee172f 100644
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -871,7 +871,7 @@ USA.
 (define (process-mode-attribute file-attribute-alist port)
   (declare (ignore port))
   (let ((mode-entry
-	 (lookup-file-attribute file-attribute-alist 'KEYWORD-STYLE)))
+	 (lookup-file-attribute file-attribute-alist 'MODE)))
     (if (pair? mode-entry)
 	(let ((value (cdr mode-entry)))
 	  (if (or (not (symbol value))