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

Merge branch 'master' of pltgit:plt

Browse Source
This commit is contained in:
Neil Toronto 2011-10-05 18:04:48 -06:00
commit 11bb172acc
4 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/meta/drdr/analyze.rkt
View File

@ -277,6 +277,8 @@
(lambda ()
#;(notify! "Analyzing log: ~S" log-pth)
(match (read-cache log-pth)
[(? eof-object?)
#f]
[(and log (struct status (start end command-line output-log)))
(define dur (status-duration log))
(define any-stderr? (ormap stderr? output-log))
@ -324,8 +326,11 @@
(dir-rendering pth)
(log-rendering pth)))
(match (next-rendering)
[(struct rendering (pth-start pth-end pth-dur pth-timeouts pth-unclean-exits pth-stderrs _pth-responsible pth-changed))
[#f
acc]
[(and n (struct rendering (pth-start pth-end pth-dur pth-timeouts pth-unclean-exits pth-stderrs _pth-responsible pth-changed)))
(match acc
[#f n]
[(struct rendering (acc-start acc-end acc-dur acc-timeouts acc-unclean-exits acc-stderrs acc-responsible acc-changed))
(make-rendering (min pth-start acc-start)
(max pth-end acc-end)

3
collects/racket/match/compiler.rkt
View File

@ -447,7 +447,8 @@
;; and compile each block with a reference to its continuation
[else
(let*-values
([(rows vars) (reorder-columns rows vars)]
(;; XXX This is broken.
#;[(rows vars) (reorder-columns rows vars)]
[(fns)
(let loop ([blocks (reverse (split-rows rows))] [esc esc] [acc null])
(if (null? blocks)

4
collects/scribblings/slideshow/picts.scrbl
View File

@ -253,7 +253,9 @@ The @racket[angle] determines how much the rectangle is
rotated, in radians.
}
@defproc[(bitmap [img (or/c path-string? (is-a?/c bitmap%))])
@defproc[(bitmap [img (or/c path-string?
(is-a?/c bitmap%)
(is-a?/c image-snip%))])
pict]{
A pict that display a bitmap. When a path is provided, the image is

16
collects/tests/match/plt-match-tests.rkt
View File

@ -171,6 +171,22 @@
[_ #f])))
(test-case "app pattern"
(check = 4 (match 3 [(app add1 y) y])))
(test-case "app pattern (step 1)"
(check = 2 (match (list 1 3)
[(list 0 (app add1 y)) y]
[(list 1 (app sub1 y)) y])))
(test-case "app pattern (step 2a)"
(check = 2 (match (cons 1 3)
[(cons 0 (app error y)) y]
[(cons 1 (app sub1 y)) y])))
(test-case "app pattern (step 2a)"
(check = 2 (match (vector 1 3)
[(vector 0 (app error y)) y]
[(vector 1 (app sub1 y)) y])))
(test-case "app pattern (step 2)"
(check = 2 (match (list 1 3)
[(list 0 (app error y)) y]
[(list 1 (app sub1 y)) y])))
(test-case "struct patterns"
(let ()
(define-struct point (x y))