[gnutls-devel] [PATCH 8/8] guile: Work around lack of 'eval-when' on 1.8.

Ludovic Courtès ludo at gnu.org
Thu Feb 11 23:04:38 CET 2016


* guile/modules/gnutls.in (eval-when) [!guile-2]: New macro.
---
 guile/modules/gnutls.in | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/guile/modules/gnutls.in b/guile/modules/gnutls.in
index f35f6ea..1936032 100644
--- a/guile/modules/gnutls.in
+++ b/guile/modules/gnutls.in
@@ -1,5 +1,5 @@
 ;;; GnuTLS --- Guile bindings for GnuTLS.
-;;; Copyright (C) 2007-2012, 2014, 2015 Free Software Foundation, Inc.
+;;; Copyright (C) 2007-2012, 2014, 2015, 2016 Free Software Foundation, Inc.
 ;;;
 ;;; GnuTLS is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU Lesser General Public
@@ -412,6 +412,12 @@
            openpgp-certificate-format/raw
            openpgp-certificate-format/base64))
 
+(cond-expand
+  ((not guile-2)                                  ;silly 1.8
+   (define-macro (eval-when foo a b)
+     `(begin ,a ,b)))
+  (else #t))
+
 (eval-when (expand load eval)
   (define %libdir
     (or (getenv "GNUTLS_GUILE_EXTENSION_DIR")
-- 
2.6.3




More information about the Gnutls-devel mailing list