diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-11 02:25:14 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-11 02:25:14 +0000 |
| commit | d2412069e4fc43a4bc6cc28ce4c57e02f8baee41 (patch) | |
| tree | 06aea77245295f6836dab0ff3b473f3250a6b0f8 /src/interp/lisplib.boot | |
| parent | 583976f30783abbf02f64abca8796d5a28111b76 (diff) | |
| download | open-axiom-d2412069e4fc43a4bc6cc28ce4c57e02f8baee41.tar.gz | |
fix fallout from previous commit
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 2 |
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] |