guile-gnome, master: fix unless macro definition for guile prior to guile-2 only

guile-gnome, master: fix unless macro definition for guile prior to guile-2 only

[David Pirotte]

[-- Attachment #1: Type: text/plain, Size: 132 bytes --]

Hello,

	guile-gnome
	  master: fix unless macro definition for guile prior to guile-2 only

Patch review solicited.

Thanks,
David

[-- Attachment #2: 0002-fix-unless-macro-definition-for-guile-prior-to-guile.patch --]
[-- Type: text/x-patch, Size: 1394 bytes --]

From 910343bf6793d512979af851b504b83b06a10ed2 Mon Sep 17 00:00:00 2001
From: David PIROTTE <david@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