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