formular: disallow custom actions with set!-based fields

MarcKaufmann · Jul 22, 2024 · 9bbd237 · 9bbd237
1 parent 74fbb89
commit 9bbd237
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/congame-core/components/formular.rkt b/congame-core/components/formular.rkt
@@ -218,6 +218,10 @@
                (set! var-id tmp) ...))
          #'put-form)
 
+     (when (and (ormap values (syntax->datum #'(var-id ...)))
+                (syntax-e #'{~? action-e #f}))
+       (raise-syntax-error 'formular "forms with set!-based fields cannot have custom actions" stx #'action-e))
+
      (define maybe-dupe-kwd
        (for/fold ([counts (hash)]
                   [dupe-stx #f]