diff options
Diffstat (limited to 'src/interp/server.boot')
| -rw-r--r-- | src/interp/server.boot | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/interp/server.boot b/src/interp/server.boot index 17e884e9..39efd26b 100644 --- a/src/interp/server.boot +++ b/src/interp/server.boot @@ -158,6 +158,8 @@ parseAndEvalStr1 string == protectedEVAL x == error := true val := NIL - UNWIND_-PROTECT((val := eval x; error := NIL), - error => (resetStackLimits(); sendHTErrorSignal())) + try + val := eval x + error := false + finally (error => (resetStackLimits(); sendHTErrorSignal())) val |