aboutsummaryrefslogtreecommitdiff
path: root/src/interp/lisplib.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r--src/interp/lisplib.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot
index 74c00370..57140a59 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot
@@ -546,7 +546,7 @@ transformOperationAlist operationAlist ==
implementation = 'mkRecord => 'mkRecord
keyedSystemError("S2IL0025",[implementation])
signatureItem:=
- if u:= ASSOC([op,sig],$functionLocations) then n := [n,:rest u]
+ if u:= assoc([op,sig],$functionLocations) then n := [n,:rest u]
kind = 'ELT =>
condition = 'T => [sig,n]
[sig,n,condition]