added ''#%futures to the list of primitives

This commit is contained in:
Danny Yoo 2011-06-01 14:28:54 -04:00
parent 35284eafbe
commit d90aec1d57
2 changed files with 7 additions and 4 deletions

View File

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

View File

@ -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))
(printf "Failed on:\n")
(for ([f failures])
(printf "~s\n" f)))