mirror of
https://gitdab.com/cadence/breezewiki.git
synced 2026-04-19 22:04:35 -04:00
Refactor let to define where applicable
Racke style guide: https://docs.racket-lang.org/style/Choosing_the_Right_Construct.html#%28part._.Definitions%29
This commit is contained in:
+10
-10
@@ -70,16 +70,16 @@
|
||||
(define real-error-port (thread-receive))
|
||||
(say-loading-once! real-error-port)
|
||||
(let loop ()
|
||||
(let ([line (read-line i)])
|
||||
(cond
|
||||
[(eof-object? line)
|
||||
(void)]
|
||||
[(string-contains? line "[load")
|
||||
(display "." real-error-port)
|
||||
(loop)]
|
||||
[#t
|
||||
(displayln line real-error-port)
|
||||
(loop)]))))
|
||||
(define line (read-line i))
|
||||
(cond
|
||||
[(eof-object? line)
|
||||
(void)]
|
||||
[(string-contains? line "[load")
|
||||
(display "." real-error-port)
|
||||
(loop)]
|
||||
[#t
|
||||
(displayln line real-error-port)
|
||||
(loop)])))
|
||||
|
||||
;; Only to be called from reloader-main
|
||||
(define (do-reload!)
|
||||
|
||||
Reference in New Issue
Block a user