semen: fix premature negative cases merge hehe

2026-09-22 23:40:16 +03:00
parent 434086ade8
commit d0e2c699e3
1 changed files with 3 additions and 2 deletions
--- a/semen.scm
+++ b/semen.scm
@@ -296,8 +296,9 @@
  "The `form` must be toplevel.
 Returns #f if the form is not a function, returns the form otherwise"
  (match form
-    ((fn . _) form)
-    ((pub fn . _) form)
+    ((or ('fn . _)
+         ('pub 'fn . _)
+         ('extern 'fn . _)) form)
    (else #f)))

 (define (sex-fn-public? fn-form)