From 9b3e68c26dbe5f2073103b22b164e97b3e290477 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 30 Jan 2009 03:48:45 +0000
Subject: 	* interp/g-error.boot (systemErrorHandler): Tidy.

---
 src/interp/g-error.boot | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/interp/g-error.boot')

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)
-- 
cgit v1.2.3