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

A whole bunch of missing newlines at EOFs (and a few other spaceages).

Browse Source
This commit is contained in:
Eli Barzilay 2012-10-19 06:47:24 -04:00
parent 6b1f423c98
commit cbfb1fdb37
24 changed files with 639 additions and 659 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/future-visualizer/main.rkt
View File

@ -44,10 +44,6 @@
;;visualize-futures-thunk : (-> any/c) -> any/c
(define (visualize-futures-thunk thunk)
(start-future-tracing!)
(begin0
(thunk)
(begin0 (thunk)
(stop-future-tracing!)
(show-visualizer)))

7
collects/future-visualizer/private/drawing-helpers.rkt
View File

@ -20,8 +20,7 @@
;;circle-pict : string string uint [uint] -> pict
(define (circle-pict color stroke-color width #:stroke-width [stroke-width 1])
(pin-over (colorize (filled-ellipse width
width)
(pin-over (colorize (filled-ellipse width width)
stroke-color)
(* stroke-width 2)
(* stroke-width 2)
@ -82,9 +81,7 @@
starty
(linewidth width
(linestyle style
(colorize (line-f dx
dy
arrow-sz)
(colorize (line-f dx dy arrow-sz)
color))))))
;;make-stand-out : pict -> pict

7
collects/future-visualizer/private/gui-helpers.rkt
View File

@ -97,10 +97,3 @@
[handler (event-target-handler target)])
(unless (eq? receiver sender)
(handler arg))))))

30
collects/future-visualizer/private/visualizer-drawing.rkt
View File

@ -324,25 +324,16 @@
;;connect-segments! : (listof segment) -> void
(define (connect-segments! segs)
(for ([s (in-list segs)])
(let ([evt (segment-event s)])
(set-segment-prev-proc-seg! s (if (event-prev-proc-event evt)
(event-segment (event-prev-proc-event evt))
#f))
(set-segment-next-proc-seg! s (if (event-next-proc-event evt)
(event-segment (event-next-proc-event evt))
#f))
(set-segment-prev-future-seg! s (if (event-prev-future-event evt)
(event-segment (event-prev-future-event evt))
#f))
(set-segment-next-future-seg! s (if (event-next-future-event evt)
(event-segment (event-next-future-event evt))
#f))
(set-segment-prev-targ-future-seg! s (if (event-prev-targ-future-event evt)
(event-segment (event-prev-targ-future-event evt))
#f))
(set-segment-next-targ-future-seg! s (if (event-next-targ-future-event evt)
(event-segment (event-next-targ-future-event evt))
#f)))))
(define evt (segment-event s))
(define (segment-of-evt getter)
(define x (getter evt))
(and x (event-segment x)))
(set-segment-prev-proc-seg! s (segment-of-evt event-prev-proc-event))
(set-segment-next-proc-seg! s (segment-of-evt event-next-proc-event))
(set-segment-prev-future-seg! s (segment-of-evt event-prev-future-event))
(set-segment-next-future-seg! s (segment-of-evt event-next-future-event))
(set-segment-prev-targ-future-seg! s (segment-of-evt event-prev-targ-future-event))
(set-segment-next-targ-future-seg! s (segment-of-evt event-next-targ-future-event))))
;;build-seg-layout : flonum (listof event) trace -> (values (listof segment) uint uint)
(define (build-seg-layout timeToPixModifier events tr max-y)
@ -870,4 +861,3 @@
txtp))
(+ yacc (pict-height txtbg) CREATE-GRAPH-PADDING))))
pct])]))

6
collects/lang/private/sl-eval.rkt
View File

@ -1,6 +1,10 @@
#lang racket
(require teachpack/2htdp/scribblings/img-eval racket/sandbox mzlib/pconvert file/convertible scribble/eval)
(require teachpack/2htdp/scribblings/img-eval
racket/sandbox
mzlib/pconvert
file/convertible
scribble/eval)
(provide
;; syntax: