From aad7d4b28d9e27be0b52b26d7f474908c65a511b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 3 Oct 2011 11:11:54 +0000
Subject: 	* interp/comp.lisp: Remove. 	* interp/setvart.boot: Remove
 setting of 'compiler' options. 	* interp/setvars.boot (setAsharpArgs):
 Remove. 	(describeAsharpArgs): Likewise. 	(setInputLibrary):
 Likewise. 	(setOutputLibrary): Likewise. 	(describeInputLibraryArgs):
 Likewise. 	(describeOutputLibraryArgs): Likewise.

---
 src/interp/br-data.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/br-data.boot')

diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot
index 33cd85a4..3b372629 100644
--- a/src/interp/br-data.boot
+++ b/src/interp/br-data.boot
@@ -580,7 +580,7 @@ childArgCheck(argl, nargl) ==
   and/[fn for x in argl for y in nargl for i in 0..] where
     fn() ==
       x = y or constructor? opOf y => true
-      isSharpVar y => i = POSN1(y, $FormalMapVariableList)
+      isSharpVar y => i = symbolPosition(y,$FormalMapVariableList)
       false
 
 --computeDescendantsOf cat ==
-- 
cgit v1.2.3