From e2c86aab4d86390971c3fcefb1616249e2c55cff Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 24 Dec 2007 17:33:04 -0500
Subject: [PATCH] Remove dead code

---
 core/compiler/batch/batch.factor | 50 --------------------------------
 1 file changed, 50 deletions(-)
 delete mode 100755 core/compiler/batch/batch.factor

diff --git a/core/compiler/batch/batch.factor b/core/compiler/batch/batch.factor
deleted file mode 100755
index 13d0295e9e..0000000000
--- a/core/compiler/batch/batch.factor
+++ /dev/null
@@ -1,50 +0,0 @@
-! Copyright (C) 2007 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: namespaces dlists kernel words inference.backend
-optimizer arrays definitions sequences assocs
-continuations generator compiler ;
-IN: compiler.batch
-
-: with-compilation-unit ( quot -- )
-    H{ } clone
-    [ compiled-xts swap with-variable ] keep
-    [ swap add* ] { } assoc>map modify-code-heap ;
-
-: compile-batch ( words -- )
-    [ [ (compile) ] curry [ print-error ] recover ] each ;
-
-SYMBOL: compile-queue
-
-: queue-compile ( word -- )
-    compile-queue get push-front ;
-
-: compiled-usage ( word -- seq )
-    #! XXX
-    usage [ word? ] subset ;
-
-: ripple-up ( effect word -- )
-    tuck "compiled-effect" word-prop =
-    [ drop ] [ compiled-usage [ queue-compile ] each ] if ;
-
-: save-effect ( effect word -- )
-    swap "compiled-effect" set-word-prop ;
-
-: add-compiled ( word -- )
-    >r f f f f f <compiled> r> compile-results get set-at ;
-
-: compile-1 ( word -- )
-    dup compile-results get at [ drop ] [
-        [ [ word-dataflow drop ] [ 2drop f ] recover ] keep
-        2dup ripple-up
-        tuck save-effect
-        add-compiled
-    ] if ;
-
-: compile-batch ( words -- )
-    [
-        <dlist> compile-queue set
-        [ queue-compile ] each
-        H{ } clone compile-results set
-        compile-queue get [ compile-1 ] dlist-slurp
-        compile-results get
-    ] with-scope ;