From 062e33f8fbbf45aa49413ff9b1d5a5ca1b9db933 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-122.local>
Date: Thu, 16 Jul 2009 00:43:54 -0500
Subject: [PATCH] fixing stupid bug in propagation
---
.../tree/propagation/transforms/transforms.factor | 8 ++------
1 file changed, 2 insertions(+), 6 deletions(-)
diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor
index 1441897b07..60f1db5093 100644
--- a/basis/compiler/tree/propagation/transforms/transforms.factor
+++ b/basis/compiler/tree/propagation/transforms/transforms.factor
@@ -61,20 +61,16 @@ IN: compiler.tree.propagation.transforms
} case
] "custom-inlining" set-word-prop
-: prepare-partial-eval ( #call n -- value-infos ? )
-
ERROR: bad-partial-eval quot word ;
: check-effect ( quot word -- )
2dup [ infer ] [ stack-effect ] bi* effect<=
[ 2drop ] [ bad-partial-eval ] if ;
-: values ( #call n -- infos )
- [ in-d>> ] dip tail* [ value-info ] map ;
-
:: define-partial-eval ( word quot n -- )
word [
- n values
+ in-d>> n tail*
+ [ value-info ] map
dup [ literal?>> ] all? [
[ literal>> ] map
n firstn