From 7766e42778a0bfe271b35d6265122ca7103da24c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 25 Jul 2010 05:47:00 +0000
Subject: 	* interp/g-opt.boot (resetTo): New. 	(optCatch): Use it. 
 (optCall): Likewise. 	(optSpecialCall): Likewise. 	(simplifyVMForm):
 Handle simple cases here. 	* interp/macros.lisp (RPLACW): Remove.

---
 src/interp/g-util.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 5d6cd5a9..9817e8e4 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -49,7 +49,7 @@ module g_-util where
 --%  
 
 $AbstractionOperator ==
-  '(LAM ILAM SLAM SPADSLAM LAMBDA)
+  '(LAM ILAM SLAM XLAM SPADSLAM LAMBDA)
 
 ++ Return true if the symbol 's' is used in the form 'x'.  
 usedSymbol?(s,x) ==
-- 
cgit v1.2.3