diff --git a/NEWS b/NEWS index e1557bfc7..799b37069 100644 --- a/NEWS +++ b/NEWS @@ -55,6 +55,7 @@ This speeds up copying large files a lot while saving the disk space. ** 'make-custom-port' now honors its #:conversion-strategy argument ** Hashing of UTF-8 symbols with non-ASCII characters avoids corruption () +** 'eval-string' respects #:column (previously it was set to the #:line) This issue could cause `scm_from_utf8_symbol' and `scm_from_utf8_symboln` to incorrectly conclude that the symbol hadn't diff --git a/test-suite/tests/eval-string.test b/test-suite/tests/eval-string.test index 8cef244bf..33068a272 100644 --- a/test-suite/tests/eval-string.test +++ b/test-suite/tests/eval-string.test @@ -51,4 +51,9 @@ (equal? (call-with-values (lambda () (eval-string "(values 1 2)" #:compile? #t)) list) - '(1 2)))) \ No newline at end of file + '(1 2))) + + (pass-if-equal "source properties" + '((filename . "test.scm") (line . 3) (column . 42)) + (source-properties + (eval-string "'(1 2)" #:file "test.scm" #:line 3 #:column 41))))