need to figure out why it takes so long to parse bytecode.

parse-bytecode-5.1.1.rkt

@@ -600,8 +600,8 @@
 
 (define (parse-topsyntax expr)
   ;; We should not get into this because we're only parsing the runtime part of
-  ;; the bytecode.
-  (error 'fixme-topsyntax))
+  ;; the bytecode.  Treated as a no-op.
+  (make-Constant (void)))
 
 
 (define (parse-application expr)

tests/test-earley.rkt

@@ -5,7 +5,7 @@
          "test-helpers.rkt"
          racket/runtime-path)
 
-(define-runtime-path earley-file-path (build-path "earley"))
+(define-runtime-path earley-path (build-path "earley"))
 
 
   

tests/test-parse-bytecode-on-collects.rkt

@@ -0,0 +1,23 @@
+#lang racket/base
+
+(require "../parse-bytecode.rkt"
+         racket/path)
+
+(define collects-dir 
+  (normalize-path
+   (let ([p (find-system-path 'collects-dir)])
+     (cond
+       [(relative-path? p)
+        (find-executable-path (find-system-path 'exec-file)
+                              (find-system-path 'collects-dir))]
+       [else
+        p]))))
+
+
+(for ([path (in-directory)])
+  (when (regexp-match? #rx"[.]rkt$" path)
+    (printf "parsing file: ~a... " path)
+    (let ([start-time (current-inexact-milliseconds)])
+      (void (parse-bytecode path))
+      (let ([end-time (current-inexact-milliseconds)])
+        (printf "~a msecs\n" (inexact->exact (floor (- end-time start-time))))))))