diff --git a/syndicate/syntax.rkt b/syndicate/syntax.rkt index 3128932..8491a40 100644 --- a/syndicate/syntax.rkt +++ b/syndicate/syntax.rkt @@ -106,6 +106,8 @@ (define-syntax (spawn stx) (syntax-parse stx + [(_ name: daemon:) + (raise-syntax-error #f "Need body in spawn")] [(_ name: daemon: setup-expr ...) #'(turn-spawn! #:name name.N #:daemon? daemon.D