Removing dead file

collects/compiler/demodularizer/prims.rkt

@@ -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)))
-