From b1003f47d983bbf4dc857873e0f15d6cfe7c62e8 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 22 Jan 2013 06:42:58 -0800
Subject: [PATCH] Revert "compiler.tree.propagation.known-words: adding known
 outputs for some words."

This reverts commit 16d8e6555b9f82ec55bbb9f9e57ad638bae04b7c.
---
 .../known-words/known-words.factor            | 42 ++++++++-----------
 1 file changed, 18 insertions(+), 24 deletions(-)

diff --git a/basis/compiler/tree/propagation/known-words/known-words.factor b/basis/compiler/tree/propagation/known-words/known-words.factor
index 880fc14e1c..eb36da6ba8 100644
--- a/basis/compiler/tree/propagation/known-words/known-words.factor
+++ b/basis/compiler/tree/propagation/known-words/known-words.factor
@@ -1,17 +1,23 @@
 ! Copyright (C) 2008, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors alien alien.accessors alien.data.private
-arrays assocs byte-arrays byte-vectors classes classes.algebra
-classes.tuple classes.tuple.private combinators
-compiler.tree.comparisons compiler.tree.propagation.constraints
-compiler.tree.propagation.info compiler.tree.propagation.simple
-compiler.tree.propagation.slots fry generic.math hashtables
-kernel kernel.private layouts locals math math.floats.private
-math.functions math.integers.private math.intervals math.libm
-math.parser math.partial-dispatch math.private namespaces sbufs
-sequences slots.private splitting strings strings.private
-vectors words ;
-USE: compiler.tree.propagation.transforms ! required?
+USING: effects accessors kernel kernel.private layouts math
+math.private math.integers.private math.floats.private
+math.partial-dispatch math.intervals math.parser math.order
+math.functions math.libm math.ratios namespaces words sequences
+sequences.private arrays assocs classes classes.algebra
+combinators generic.math splitting fry locals classes.tuple
+alien.accessors classes.tuple.private slots.private definitions
+strings.private vectors hashtables generic quotations alien
+alien.data alien.data.private
+stack-checker.dependencies
+compiler.tree.comparisons
+compiler.tree.propagation.info
+compiler.tree.propagation.nodes
+compiler.tree.propagation.slots
+compiler.tree.propagation.simple
+compiler.tree.propagation.constraints
+compiler.tree.propagation.call-effect
+compiler.tree.propagation.transforms ;
 FROM: alien.c-types => (signed-interval) (unsigned-interval) ;
 IN: compiler.tree.propagation.known-words
 
@@ -234,18 +240,6 @@ generic-comparison-ops [
     '[ _ swap interval>> <class/interval-info> ] "outputs" set-word-prop
 ] assoc-each
 
-{
-    { >array array }
-    { >vector vector }
-    { >string string }
-    { >sbuf sbuf }
-    { >byte-array byte-array }
-    { >byte-vector byte-vector }
-    { >hashtable hashtable }
-} [
-    '[ drop _ <class-info> ] "outputs" set-word-prop
-] assoc-each
-
 { numerator denominator }
 [ [ drop integer <class-info> ] "outputs" set-word-prop ] each