diff options
Diffstat (limited to 'src/interp/i-resolv.boot')
-rw-r--r-- | src/interp/i-resolv.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-resolv.boot b/src/interp/i-resolv.boot index 111e430e..78c61f88 100644 --- a/src/interp/i-resolv.boot +++ b/src/interp/i-resolv.boot @@ -750,7 +750,7 @@ constructM(c,A) == replaceLast(A,t) == -- replaces the last element of the nonempty list A by t (constructively - nreverse RPLACA(reverse A,t) + nreverse (reverse(A).first := t) destructT(functor)== -- provides a list of booleans, which indicate whether the arguments |