From 2468be83428409b0ce7a0d8586d3d28fcf66c3ab Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 25 Jul 2010 17:28:40 +0000
Subject: use simplifyVMForm instead of optimize

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

diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 3039e4d1..43c9705a 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -111,7 +111,7 @@ optimizeFunctionDef(def) ==
     sayBrightlyI bright '"Original LISP code:"
     pp def
  
-  def' := optimize COPY def
+  def' := simplifyVMForm COPY def
  
   if $reportOptimization then
     sayBrightlyI bright '"Optimized LISP code:"
-- 
cgit v1.2.3