Detect situation with empty spawn body
This commit is contained in:
parent
752bc91991
commit
1ca04c66b0
|
@ -106,6 +106,8 @@
|
|||
|
||||
(define-syntax (spawn stx)
|
||||
(syntax-parse stx
|
||||
[(_ name:<name> daemon:<daemon?>)
|
||||
(raise-syntax-error #f "Need body in spawn")]
|
||||
[(_ name:<name> daemon:<daemon?> setup-expr ...)
|
||||
#'(turn-spawn! #:name name.N
|
||||
#:daemon? daemon.D
|
||||
|
|
Loading…
Reference in New Issue