From 3d5995b3b4faadd0e71e604f0ef1a01c67abba40 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 21 Apr 2009 16:10:42 -0500
Subject: [PATCH] Two quick fixes
---
basis/compiler/tree/optimizer/optimizer.factor | 1 -
basis/compiler/tree/propagation/inlining/inlining.factor | 2 +-
2 files changed, 1 insertion(+), 2 deletions(-)
diff --git a/basis/compiler/tree/optimizer/optimizer.factor b/basis/compiler/tree/optimizer/optimizer.factor
index daa8f072ca..fe3c7acb92 100644
--- a/basis/compiler/tree/optimizer/optimizer.factor
+++ b/basis/compiler/tree/optimizer/optimizer.factor
@@ -29,7 +29,6 @@ SYMBOL: check-optimizer?
normalize
propagate
cleanup
- ?check
dup run-escape-analysis? [
escape-analysis
unbox-tuples
diff --git a/basis/compiler/tree/propagation/inlining/inlining.factor b/basis/compiler/tree/propagation/inlining/inlining.factor
index 7ae44a5293..df9c7be024 100755
--- a/basis/compiler/tree/propagation/inlining/inlining.factor
+++ b/basis/compiler/tree/propagation/inlining/inlining.factor
@@ -170,7 +170,7 @@ SYMBOL: history
] if ;
: inline-word ( #call word -- ? )
- dup specialized-def inline-word-def ;
+ dup def>> inline-word-def ;
: inline-method-body ( #call word -- ? )
2dup should-inline? [ inline-word ] [ 2drop f ] if ;