From 8516001c08796f3d5d162f8866d5a5054b9eb39c Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Fri, 29 Oct 2010 22:24:50 -0600
Subject: [PATCH] Removing dead file

---
 collects/compiler/demodularizer/prims.rkt | 34 -----------------------
 1 file changed, 34 deletions(-)
 delete mode 100644 collects/compiler/demodularizer/prims.rkt

diff --git a/collects/compiler/demodularizer/prims.rkt b/collects/compiler/demodularizer/prims.rkt
deleted file mode 100644
index e73b1fea6b..0000000000
--- a/collects/compiler/demodularizer/prims.rkt
+++ /dev/null
@@ -1,34 +0,0 @@
-#lang racket
-(require racket/set
-         rackunit
-         compiler/decompile
-         compiler/zo-parse)
-(require/expose compiler/decompile
-                (primitive-table))
-
-(define file-to-batch
-  (command-line #:program "batch" #:args (filename) filename))
-
-(define the-zo
-  (call-with-input-file file-to-batch zo-parse))
-
-(define (find-prims ps v)
-  (cond
-    [(primval? v)
-     (set-add ps (primval-id v))]
-    [(or (symbol? v) (number? v) (boolean? v) (module-path-index? v) (path? v) (char? v) (void? v) (string? v) (keyword? v) (regexp? v) (byte-regexp? v) (placeholder? v) (hash-placeholder? v))
-     ps]
-    [(sequence? v)
-     (for/fold ([ps ps])
-       ([e v])
-       (find-prims ps e))]
-    [(cons? v)
-     (find-prims (find-prims ps (car v)) (cdr v))]
-    [(struct? v)
-     (find-prims ps (struct->vector v))]
-    [else
-     (error 'find-prims "Can't look in ~e~n" v)]))
-
-(for ([p (in-set (find-prims (set) the-zo))])
-  (printf "~s~n" (hash-ref primitive-table p)))
-      
\ No newline at end of file