Hello,
guile-gnome
master: fix unless macro definition for guile prior to guile-2 only
Patch review solicited.
Thanks,
David
>From 910343bf6793d512979af851b504b83b06a10ed2 Mon Sep 17 00:00:00 2001
From: David PIROTTE <da...@altosw.be>
Date: Fri, 2 May 2014 16:01:30 -0300
Subject: [PATCH 2/2] fix unless macro definition for guile prior to guile-2
only
* glib/gnome/gobject/utils.scm: moving the unless macro definition in
the conditonal expansion section for guile prior to guile-2.
---
glib/gnome/gobject/utils.scm | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/glib/gnome/gobject/utils.scm b/glib/gnome/gobject/utils.scm
index fd88c8f..7a36bbb 100644
--- a/glib/gnome/gobject/utils.scm
+++ b/glib/gnome/gobject/utils.scm
@@ -35,7 +35,7 @@
re-export-modules
define-macro-with-docs define-with-docs
define-generic-with-docs define-class-with-docs
- unless with-accessors))
+ with-accessors))
;;;
;;; {Miscellaneous}
@@ -54,7 +54,10 @@
(define-macro (define-macro-with-docs form docs . body)
`(begin
(define-macro ,form ,@body)
- (set-object-property! ,(car form) 'documentation ,docs)))))
+ (set-object-property! ,(car form) 'documentation ,docs)))
+ (define-macro (unless test . body)
+ `(if (not ,test) (begin ,@body)))
+ (export unless)))
(define-macro-with-docs (define-with-docs name docs val)
"Define @var{name} as @var{val}, documenting the value with
--
1.9.2
