diff options
Diffstat (limited to 'module/system/syntax.scm')
-rw-r--r-- | module/system/syntax.scm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/module/system/syntax.scm b/module/system/syntax.scm index 6d8c96748..970b8c86b 100644 --- a/module/system/syntax.scm +++ b/module/system/syntax.scm @@ -1,6 +1,6 @@ ;;; Syntax utilities -;;; Copyright (C) 2017, 2021 Free Software Foundation, Inc. +;;; Copyright (C) 2017, 2021, 2025 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 @@ -24,14 +24,19 @@ syntax-local-binding (%syntax-module . syntax-module) syntax-locally-bound-identifiers - syntax-session-id - syntax-sourcev)) + syntax-session-id)) + +(begin-deprecated + (define-public (syntax-sourcev x) + (issue-deprecation-warning + "syntax-sourcev is deprecated. Use syntax-source instead.") + (syntax-source x))) ;; Used by syntax.c. (define (print-syntax obj port) ;; FIXME: Use syntax->datum instad of syntax-expression, when ;; syntax->datum can operate on new syntax objects. - (let ((src (syntax-sourcev obj))) + (let ((src (syntax-source obj))) (if src (format port "#<syntax:~a:~a:~a ~s>" (cond |