diff options
Diffstat (limited to 'module/srfi/srfi-64.scm')
-rw-r--r-- | module/srfi/srfi-64.scm | 7 |
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)) |