Detect situation with empty spawn body

2021-06-10 13:33:34 +02:00 · 2021-06-10 13:33:34 +02:00 · 1ca04c66b0
parent 752bc91991
commit 1ca04c66b0
1 changed files with 2 additions and 0 deletions
--- a/syndicate/syntax.rkt
+++ b/syndicate/syntax.rkt
@ -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