From 044ec4f17ae0098af6dba5a02787d39a7558e1e1 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 22 Jun 2011 12:52:47 +0000
Subject: 	* interp/spaderror.lisp (trapNumericErrors): Fix typo.

---
 src/ChangeLog             | 4 ++++
 src/interp/spaderror.lisp | 6 +++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/ChangeLog b/src/ChangeLog
index d9f908ed..66a108af 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2011-06-22  Gabriel Dos Reis  <gdr@cs.tamu.edu>
+
+	* interp/spaderror.lisp (trapNumericErrors): Fix typo.
+
 2011-06-22  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
 	* interp/g-opt.boot ($VMsideEffectFreeOperators): Include FUNCALL.
diff --git a/src/interp/spaderror.lisp b/src/interp/spaderror.lisp
index 2967dc27..3a07ad21 100644
--- a/src/interp/spaderror.lisp
+++ b/src/interp/spaderror.lisp
@@ -54,9 +54,9 @@
 #+:gcl
 (defmacro |trapNumericErrors| (form)
   `(let ((|$oldBreakMode| |$BreakMode|)
-         (|$BreakMode| '|trapNumerics|))
-         (val))
-     (catch '|trapNumerics| ,form))
+         (|$BreakMode| '|trapNumerics|)
+	 (val))
+     (catch '|trapNumerics| ,form)))
 
 #-:gcl
 (defmacro |trapNumericErrors| (form)
-- 
cgit v1.2.3