mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Provide curried version of define*-public.

Browse source 
* module/ice-9/curried-definitions.scm (define*-public): New macro.
This commit is contained in:
Ian Price 2014-07-31 16:05:58 +01:00
parent 8857e271d8
commit b072b8e692
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
module/ice-9/curried-definitions.scm
View file

@ -17,7 +17,8 @@
(define-module (ice-9 curried-definitions) (define-module (ice-9 curried-definitions)
#:replace ((cdefine . define) #:replace ((cdefine . define)
(cdefine* . define*) (cdefine* . define*)
define-public)) define-public
define*-public))
(define-syntax cdefine (define-syntax cdefine
(syntax-rules () (syntax-rules ()
@ -44,3 +45,13 @@
(begin (begin
(define name val) (define name val)
(export name))))) (export name)))))
(define-syntax define*-public
(syntax-rules ()
((_ (head . rest) body body* ...)
(define*-public head
(lambda* rest body body* ...)))
((_ name val)
(begin
(define* name val)
(export name)))))