aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-data.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-data.boot')
-rw-r--r--src/interp/br-data.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot
index 8ca1a18d..7484ff44 100644
--- a/src/interp/br-data.boot
+++ b/src/interp/br-data.boot
@@ -749,7 +749,7 @@ sublisFormal(args,exp,:options) == main where
nd.rest := sublisFormal1(args,y,n)
r
IDENTP x =>
- j := or/[i for f in $formals for i in 0..n | EQ(f,x)] =>
+ j := or/[i for f in $formals for i in 0..n | sameObject?(f,x)] =>
args.j
x
x