From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 13 Mar 2017 05:10:55 +0000 (-0700)
Subject: Typo in aefa370 (Add a global edit procedure...).
X-Git-Tag: mit-scheme-pucked-9.2.12~178
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=77695e532372ff90de24049b04687b2cd5d5cab5;p=mit-scheme.git

Typo in aefa370 (Add a global edit procedure...).
---

diff --git a/src/runtime/global.scm b/src/runtime/global.scm
index e25fc767a..50d674824 100644
--- a/src/runtime/global.scm
+++ b/src/runtime/global.scm
@@ -157,7 +157,7 @@ USA.
   (let ((env (let ((package (name->package '(edwin))))
 	       (and package (package/environment package)))))
     (if env
-	(apply (environment-lookup end 'edit) args)
+	(apply (environment-lookup env 'edit) args)
 	(begin
 	  (with-notification
 	   (lambda (port) (display "Loading Edwin" port))