From d90aec1d57a3f609f2735e8bcc2f89bd4cd6a75b Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Wed, 1 Jun 2011 14:28:54 -0400
Subject: [PATCH] added ''#%futures to the list of primitives

---
 parser/parse-bytecode-5.1.1.rkt           |  1 +
 tests/test-parse-bytecode-on-collects.rkt | 10 ++++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/parser/parse-bytecode-5.1.1.rkt b/parser/parse-bytecode-5.1.1.rkt
index c115d65..b5d5061 100644
--- a/parser/parse-bytecode-5.1.1.rkt
+++ b/parser/parse-bytecode-5.1.1.rkt
@@ -79,6 +79,7 @@
              (namespace-require ''#%kernel)
              (namespace-require ''#%unsafe)
              (namespace-require ''#%flfxnum)
+             (namespace-require ''#%futures)
              (for/list ([l (namespace-mapped-symbols)])
                (cons l (with-handlers ([exn:fail? (lambda (x) 
                                                     #f)])
diff --git a/tests/test-parse-bytecode-on-collects.rkt b/tests/test-parse-bytecode-on-collects.rkt
index ce6679a..1beebfe 100644
--- a/tests/test-parse-bytecode-on-collects.rkt
+++ b/tests/test-parse-bytecode-on-collects.rkt
@@ -2,15 +2,15 @@
 
 ;; Tries to parse all the files in collects and sees how long it takes.
 ;;
-;; TODO: figure out why it fails to get the module bytecode for
-;; collects/tests/matrix-test.rkt.  I'm seeing the following:
-;; read-syntax: cannot load snip-class reader
+;; Files that take too long get categorized as timeouts.
+
 
 (require "../parser/parse-bytecode.rkt"
          "../call-with-timeout.rkt"
          racket/list
          racket/path)
 
+
 (define collects-dir 
   (normalize-path
    (let ([p (find-system-path 'collects-dir)])
@@ -44,4 +44,6 @@
 
 
 (unless (empty? failures)
-  (printf "Failed on: ~s" failures))
\ No newline at end of file
+  (printf "Failed on:\n")
+  (for ([f failures])
+    (printf "~s\n" f)))
\ No newline at end of file