suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added ''#%futures to the list of primitives

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
parser/parse-bytecode-5.1.1.rkt
View File

@ -79,6 +79,7 @@
(namespace-require ''#%kernel) (namespace-require ''#%kernel)
(namespace-require ''#%unsafe) (namespace-require ''#%unsafe)
(namespace-require ''#%flfxnum) (namespace-require ''#%flfxnum)
(namespace-require ''#%futures)
(for/list ([l (namespace-mapped-symbols)]) (for/list ([l (namespace-mapped-symbols)])
(cons l (with-handlers ([exn:fail? (lambda (x) (cons l (with-handlers ([exn:fail? (lambda (x)
#f)]) #f)])

10
tests/test-parse-bytecode-on-collects.rkt
View File

@ -2,15 +2,15 @@
;; Tries to parse all the files in collects and sees how long it takes. ;; 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 ;; Files that take too long get categorized as timeouts.
;; collects/tests/matrix-test.rkt. I'm seeing the following:
;; read-syntax: cannot load snip-class reader
(require "../parser/parse-bytecode.rkt" (require "../parser/parse-bytecode.rkt"
"../call-with-timeout.rkt" "../call-with-timeout.rkt"
racket/list racket/list
racket/path) racket/path)
(define collects-dir (define collects-dir
(normalize-path (normalize-path
(let ([p (find-system-path 'collects-dir)]) (let ([p (find-system-path 'collects-dir)])
@ -44,4 +44,6 @@
(unless (empty? failures) (unless (empty? failures)
(printf "Failed on: ~s" failures)) (printf "Failed on:\n")
(for ([f failures])
(printf "~s\n" f)))