diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-21 14:56:48 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-21 14:56:48 +0000 |
| commit | 27ab3bdab9b9499046f0a1e380024a88d6d6275b (patch) | |
| tree | 5578fc267430e7518b18ddfdddac3b49de9f97c1 /src/interp/sys-driver.boot | |
| parent | 6511f77b63b9a74b65ac7e3d8f1a3f053970cb75 (diff) | |
| download | open-axiom-27ab3bdab9b9499046f0a1e380024a88d6d6275b.tar.gz | |
* interp/g-error.boot (systemErrorHandler): New.
* interp/sys-driver.boot (restart): Use it.
Diffstat (limited to 'src/interp/sys-driver.boot')
| -rw-r--r-- | src/interp/sys-driver.boot | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index 1274564f..12f0a022 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -165,7 +165,12 @@ restart() == $currentLine := nil openDatabases() readSpadProfileIfThere() +)if %hasFeature KEYWORD::GCL spad() +)else + SETQ(_*DEBUGGER_-HOOK_*,LAMBDA(c h, systemErrorHandler c)) + !(handler-bind ((error #'|systemErrorHandler|)) (|spad|)) +)endif --% |