diff options
-rw-r--r-- | module/ice-9/read.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm index 0724c6664..72811fdb8 100644 --- a/module/ice-9/read.scm +++ b/module/ice-9/read.scm @@ -882,7 +882,5 @@ (define (annotate line column datum) (datum->syntax #f ; No lexical context. datum - #:source `((filename . ,filename) - (line . ,line) - (column . ,(1- column))))) + #:source (vector filename line (1- column)))) (%read port annotate syntax->datum)) |