np/verilog-playground
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Replace 'when not' to 'unless'

Browse Source
This commit is contained in:
Nikolay Puzanov 2022-12-05 20:26:04 +03:00
parent c91003e34b
commit daa744f8b2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
_web_server/server/playground-server.scm
View File

@ -78,7 +78,7 @@
;;; Logger ;;; Logger
;;; ;;;
(define (logger . args) (define (logger . args)
(when (not (null? args)) (unless (null? args)
(let ((prefix (let ((prefix
(format "~a | " (format "~a | "
(strftime "%c" (localtime (current-time)))))) (strftime "%c" (localtime (current-time))))))
@ -179,7 +179,7 @@
(when (or (not max-file-size) (when (or (not max-file-size)
(< readed max-file-size)) (< readed max-file-size))
(let ((data (get-bytevector-n in max-read-length))) (let ((data (get-bytevector-n in max-read-length)))
(when (not (eof-object? data)) (unless (eof-object? data)
(put-bytevector port data) (put-bytevector port data)
(loop (+ readed (bytevector-length data)))))))) (loop (+ readed (bytevector-length data))))))))
#:binary #t)))) #:binary #t))))