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

fix call to raise-argument-error and fix docs for with-roots

Browse Source
This commit is contained in:
Robby Findler 2014-02-26 06:10:24 -06:00
parent 62a09958d2
commit 73967fcfec
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/plai/gc2/private/gc-core.rkt
View File

@ -178,7 +178,7 @@
(define rt (getter)) (define rt (getter))
(unless (location? rt) (unless (location? rt)
(raise-argument-error 'with-roots (raise-argument-error 'with-roots
'location? "location?"
rt))) rt)))
(parameterize ([user-specified-roots (parameterize ([user-specified-roots
(append (append

3
pkgs/plai/scribblings/collector2.scrbl
View File

@ -127,7 +127,7 @@ Determines if @racket[v] is a root.
]} ]}
@defform[(with-roots (root-var ...) expr1 expr2 ...) @defform[(with-roots (root-var ...) expr1 expr2 ...)
#:contracts ([roots-expr (listof location?)])]{ #:contracts ([root-var location?])]{
Evaluates each of @racket[expr1] and the @racket[expr2]s in Evaluates each of @racket[expr1] and the @racket[expr2]s in
in a context with additional roots, one for each of in a context with additional roots, one for each of
the @racket[root-var]s. The @racket[get-root-set] function the @racket[root-var]s. The @racket[get-root-set] function
@ -146,6 +146,7 @@ Determines if @racket[v] is a root.
@racketblock[ @racketblock[
(test (with-heap (make-vector 4) (test (with-heap (make-vector 4)
(init-allocator)
(define f1 (gc:alloc-flat 1)) (define f1 (gc:alloc-flat 1))
(define r1 (make-root 'f1 (define r1 (make-root 'f1
(λ () f1) (λ () f1)