diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-02-11 23:04:38 +0100 |
|---|---|---|
| committer | Nikos Mavrogiannopoulos <nmav@redhat.com> | 2016-02-15 10:07:12 +0100 |
| commit | 72eed3e63486f756e4861febedf7050a786901ee (patch) | |
| tree | f2ff6e0acecf633ff471dd7a585e42d04f1e01df /guile | |
| parent | 3a93730169d7d4658ca1e788b17758a4356a0331 (diff) | |
| download | gnutls-72eed3e63486f756e4861febedf7050a786901ee.tar.gz | |
guile: Work around lack of 'eval-when' on 1.8.
* guile/modules/gnutls.in (eval-when) [!guile-2]: New macro.
Diffstat (limited to 'guile')
| -rw-r--r-- | guile/modules/gnutls.in | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guile/modules/gnutls.in b/guile/modules/gnutls.in index f35f6eae29..193603238f 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") |