diff options
Diffstat (limited to 'src/interp/i-spec1.boot')
| -rw-r--r-- | src/interp/i-spec1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot index 300f181b..6312649b 100644 --- a/src/interp/i-spec1.boot +++ b/src/interp/i-spec1.boot @@ -333,7 +333,7 @@ userDefinedCase(t is [op, lhs, rhs]) == putMode(r, m) putValue(r, objNewWrap(MKQ rhs,m)) putModeSet(r, [m]) - RPLACD(cdr t, [r]) -- fix up contained for rhs. + x.rest.rest := [r] -- fix up contained for rhs. nil -- tell bottomUp to continue. upcase t == |