From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 Mar 2017 04:43:23 +0000 (-0800)
Subject: Fix missed references to parser.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~102
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=76a2189eb626c4b3d7b1bd165f7bde7454f93eb7;p=mit-scheme.git

Fix missed references to parser.
---

diff --git a/src/edwin/edwin.pkg b/src/edwin/edwin.pkg
index a6eef9604..9bfb88807 100644
--- a/src/edwin/edwin.pkg
+++ b/src/edwin/edwin.pkg
@@ -115,8 +115,6 @@ USA.
 	  fixed-objects-item
 	  update-fixed-objects-item!)
   (import (runtime parser)
-	  (param:parser-fold-case? runtime-param:parser-fold-case?)
-	  (param:parser-radix runtime-param:parser-radix)
 	  get-param:parser-fold-case?)
   (import (runtime port)
 	  (make-port make-textual-port)
diff --git a/src/edwin/schmod.scm b/src/edwin/schmod.scm
index b2ed4862a..3d6e28d27 100644
--- a/src/edwin/schmod.scm
+++ b/src/edwin/schmod.scm
@@ -266,8 +266,7 @@ The following commands evaluate Scheme expressions:
 	  (let ((completions
 		 (let ((environment (evaluation-environment #f)))
 		   (obarray-completions
-		    (if (and bound-only?
-			     (get-param:parser-fold-case? environment))
+		    (if (and bound-only? (get-param:parser-fold-case?))
 			(string-downcase prefix)
 			prefix)
 		    (if bound-only?