summaryrefslogtreecommitdiff
path: root/module/srfi/srfi-64.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/srfi/srfi-64.scm')
-rw-r--r--module/srfi/srfi-64.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/module/srfi/srfi-64.scm b/module/srfi/srfi-64.scm
index 98fcef645..9f55e35a6 100644
--- a/module/srfi/srfi-64.scm
+++ b/module/srfi/srfi-64.scm
@@ -1,4 +1,4 @@
-;;; Copyright (C) 2024 Tomas Volf <~@wolfsden.cz>
+;;; Copyright (C) 2024, 2025 Tomas Volf <~@wolfsden.cz>
;;
;; This library is free software; you can redistribute it and/or
@@ -27,6 +27,7 @@
#:use-module (ice-9 exceptions)
#:use-module (ice-9 format)
#:use-module (ice-9 match)
+ #:use-module (ice-9 object-properties)
#:use-module (ice-9 pretty-print)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-9)
@@ -627,8 +628,8 @@ the @var{cleanup-form}. The latter shall be executed even if one of a
"Extract properties of syntax @var{form} and return them as a alist with
keys compatible with Guile's SRFI-64 implementation."
(let* ((source (syntax-source form))
- (file (and=> source (cut assq-ref <> 'filename)))
- (line (and=> source (cut assq-ref <> 'line)))
+ (file (and source (vector-ref source 0)))
+ (line (and source (vector-ref source 1)))
;; I do not care about column. Tests are not nested enough.
(file-alist (if file
`((source-file . ,file))