semen: fix premature negative cases merge hehe #33
@@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user