diff options
Diffstat (limited to 'src/guile/skribilo/debug.scm')
| -rw-r--r-- | src/guile/skribilo/debug.scm | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/src/guile/skribilo/debug.scm b/src/guile/skribilo/debug.scm index f3da3b9..80ab952 100644 --- a/src/guile/skribilo/debug.scm +++ b/src/guile/skribilo/debug.scm @@ -1,6 +1,6 @@ ;;; debug.scm -- Debugging facilities. -*- coding: iso-8859-1 -*- ;;; -;;; Copyright 2005, 2006, 2009, 2012 Ludovic Courtès <ludo@gnu.org> +;;; Copyright 2005, 2006, 2009, 2012, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> ;;; ;;; This file is part of Skribilo. @@ -110,17 +110,9 @@ (for-each (lambda (a) (display a (*debug-port*))) args) (newline (*debug-port*)))) -(cond-expand - (guile-2 - (define-syntax-rule (debug-item args ...) - (if (*debug-item?*) - (%do-debug-item args ...)))) - (else - (begin - ;; Work around Guile 1.8's broken macro support. - (export %do-debug-item) - (define-macro (debug-item . args) - `(if (*debug-item?*) (%do-debug-item ,@args)))))) +(define-syntax-rule (debug-item args ...) + (if (*debug-item?*) + (%do-debug-item args ...))) ;;; |