summaryrefslogtreecommitdiff
path: root/module/system/syntax.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/syntax.scm')
-rw-r--r--module/system/syntax.scm13
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