diff options
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 3f2653f9..9e7530a5 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -721,9 +721,9 @@ compDefineExports(form,ops,sig,e) == fixupSigloc entry == [opsig,pred,funsel] := entry if pred ~= 'T then - rplac(second entry, simpBool pred) + entry.rest.first := simpBool pred funsel is [op,a,:.] and op in '(ELT CONST) => - rplac(third entry,[op,a,nil]) + entry.rest.rest.first := [op,a,nil] ops := listSort(function GGREATERP, ops, function first) libName := getConstructorAbbreviation op exportsFile := strconc(STRING libName,'".sig") |