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

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

View File

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

View File

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

View File

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

View File

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

View File

@ -1,6 +1,10 @@
#lang racket #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 (provide
;; syntax: ;; syntax: