diff options
| author | Andy Wingo <wingo@pobox.com> | 2010-01-14 00:40:20 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2010-01-14 00:40:20 +0100 |
| commit | f207859b0be606ea77d488262e2b8d114c9ae370 (patch) | |
| tree | 69f02a1b00cb229226770a3ef43b6322953b935d | |
| parent | 7ea3e4ff28fb02b0c82a2e304ba8d958528bc2ae (diff) | |
| download | guile-f207859b0be606ea77d488262e2b8d114c9ae370.tar.gz | |
1.8 compat in ice-9 syncase
* module/ice-9/syncase.scm: Export datum->syntax-object and
syntax-object->datum as aliases of datum->syntax and syntax->datum.
Thanks to Daniel Llorens del Río for the suggestion.
| -rw-r--r-- | module/ice-9/syncase.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/module/ice-9/syncase.scm b/module/ice-9/syncase.scm index 210a23280..6dac66d64 100644 --- a/module/ice-9/syncase.scm +++ b/module/ice-9/syncase.scm @@ -1,4 +1,4 @@ -;;;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2006 Free Software Foundation, Inc. +;;;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2006, 2010 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -17,11 +17,14 @@ (define-module (ice-9 syncase) - ) + #:export (datum->syntax-object syntax-object->datum)) (issue-deprecation-warning "Syntax-case macros are now a part of Guile core; importing (ice-9 syncase) is no longer necessary.") +(define datum->syntax-object datum->syntax) +(define syntax-object->datum syntax->datum) + ;;; Hack to make syncase macros work in the slib module ;; FIXME wingo is this still necessary? ;; (let ((m (nested-ref the-root-module '(%app modules ice-9 slib)))) |