pkulev/sex
1
0
Fork 0
forked from alex-eg/sex
Code Pull Requests Activity

semen: fix premature negative cases merge hehe

Browse Source
This commit is contained in:
Pavel Kulyov
2026-09-22 23:40:16 +03:00
parent 434086ade8
commit d0e2c699e3
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
semen.scm
View File

@@ -296,8 +296,9 @@
"The `form` must be toplevel. "The `form` must be toplevel.
Returns #f if the form is not a function, returns the form otherwise" Returns #f if the form is not a function, returns the form otherwise"
(match form (match form
((fn . _) form) ((or ('fn . _)
((pub fn . _) form) ('pub 'fn . _)
('extern 'fn . _)) form)
(else #f))) (else #f)))
(define (sex-fn-public? fn-form) (define (sex-fn-public? fn-form)