aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-con.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-con.boot')
-rw-r--r--src/interp/br-con.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-con.boot b/src/interp/br-con.boot
index 739332b2..61c27086 100644
--- a/src/interp/br-con.boot
+++ b/src/interp/br-con.boot
@@ -510,7 +510,7 @@ augmentHasArgs(alist,conform) ==
n := #args
[[name,:pred] for [name,:p] in alist] where pred() ==
extractHasArgs p is [a,:b] => p
- quickAnd(p,['hasArgs,:TAKE(n,KDR getConstructorForm opOf name)])
+ quickAnd(p,['hasArgs,:take(n,KDR getConstructorForm opOf name)])
kcdePage(htPage,junk) ==
[kind,name,nargs,xflag,sig,args,abbrev,comments] := htpProperty(htPage,'parts)