diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-01-30 03:48:45 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-01-30 03:48:45 +0000 |
| commit | 9b3e68c26dbe5f2073103b22b164e97b3e290477 (patch) | |
| tree | 8a3e5fa558a721544d2eb0ace9482aa9317e4c0a /src/interp | |
| parent | 3dfe242d21ca1835872a115b80de6f409a2c4835 (diff) | |
| download | open-axiom-9b3e68c26dbe5f2073103b22b164e97b3e290477.tar.gz | |
* interp/g-error.boot (systemErrorHandler): Tidy.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/g-error.boot | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/interp/g-error.boot b/src/interp/g-error.boot index 6123c2ff..393e6b6e 100644 --- a/src/interp/g-error.boot +++ b/src/interp/g-error.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2008, Gabriel Dos Reis. +-- Copyright (C) 2007-2009, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -202,8 +202,7 @@ systemErrorHandler c == $BreakMode = "validate" => systemError ERROR_-FORMAT('"~a",[c]) not $inLispVM and $BreakMode in '(nobreak query resume) => - $inLispVM := true - systemError ERROR_-FORMAT('"~a",[c]) + LET(($inLispVM true)(), systemError ERROR_-FORMAT('"~a",[c])) $BreakMode = "letPrint2" => $BreakMode := nil THROW("letPrint2",nil) |