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