A whole bunch of missing newlines at EOFs (and a few other spaceages).
original commit: cbfb1fdb370244c2cadcf327332f1c643d4588c0
This commit is contained in:
parent
e2fae17d73
commit
f19e523806
|
@ -28,4 +28,4 @@
|
|||
(place-channel-put enq-ch (vector 'log name dir res-ch*))
|
||||
(place-channel-get res-ch)]
|
||||
[else
|
||||
(generate-log/place name dir)]))
|
||||
(generate-log/place name dir)]))
|
||||
|
|
|
@ -6,4 +6,4 @@
|
|||
(define (f t)
|
||||
(match t
|
||||
[(s value) (s value)]
|
||||
[_ (error 'fail)]))
|
||||
[_ (error 'fail)]))
|
||||
|
|
2
collects/typed-racket/env/env-req.rkt
vendored
2
collects/typed-racket/env/env-req.rkt
vendored
|
@ -11,4 +11,4 @@
|
|||
(dynamic-require (collapse-module-path '(submod "." #%type-decl) m)
|
||||
#f))))
|
||||
|
||||
(provide add-mod! do-requires)
|
||||
(provide add-mod! do-requires)
|
||||
|
|
2
collects/typed-racket/env/mvar-env.rkt
vendored
2
collects/typed-racket/env/mvar-env.rkt
vendored
|
@ -10,4 +10,4 @@
|
|||
(dict-set! mvar-env id #t))
|
||||
|
||||
(define (is-var-mutated? id)
|
||||
(dict-ref mvar-env id #f))
|
||||
(dict-ref mvar-env id #f))
|
||||
|
|
|
@ -7,4 +7,4 @@
|
|||
(disappeared-use-todo (cons t (disappeared-use-todo))))
|
||||
(define disappeared-bindings-todo (make-parameter '()))
|
||||
(define (add-disappeared-binding t)
|
||||
(disappeared-bindings-todo (cons t (disappeared-bindings-todo))))
|
||||
(disappeared-bindings-todo (cons t (disappeared-bindings-todo))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user