From 57ba1aff60b7b38c68a7406f40fabaf0e7120bc6 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 11 Feb 2010 16:29:48 +1300
Subject: [PATCH] compiler.tree.propagation.inlining: remove some unused words
---
basis/compiler/tree/propagation/inlining/inlining.factor | 8 --------
1 file changed, 8 deletions(-)
diff --git a/basis/compiler/tree/propagation/inlining/inlining.factor b/basis/compiler/tree/propagation/inlining/inlining.factor
index 634fade609..4a227cfa77 100644
--- a/basis/compiler/tree/propagation/inlining/inlining.factor
+++ b/basis/compiler/tree/propagation/inlining/inlining.factor
@@ -79,14 +79,6 @@ M: callable splicing-nodes splicing-body ;
: inline-math-method ( #call word -- ? )
dupd inlining-math-method eliminate-dispatch ;
-: inlining-math-partial ( #call word -- class/f quot/f )
- [ "derived-from" word-prop first inlining-math-method ]
- [ nip 1quotation ] 2bi
- [ = not ] [ drop ] 2bi and ;
-
-: inline-math-partial ( #call word -- ? )
- dupd inlining-math-partial eliminate-dispatch ;
-
! Method body inlining
SYMBOL: history