tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-28 03:51:53 +02:00
Code Activity

read-print: Correctly read "(. x)".

Browse Source 
* guix/read-print.scm (read-with-comments): Check whether REST is a pair
before calling 'set-cdr!'.
* tests/read-print.scm ("read-with-comments: half dot notation"): New test.
This commit is contained in:
Ludovic Courtès
2023-05-05 18:22:56 +02:00
parent 94d0efffb3
commit 8749f31485
2 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/read-print.scm
+5
View File
@@ -58,6 +58,11 @@ expressions."
(call-with-input-string "(a . b)"
read-with-comments))
(test-equal "read-with-comments: half dot notation"
'(lambda x x)
(call-with-input-string "(lambda (. x) x)"
read-with-comments))
(test-equal "read-with-comments: list with blank line"
`(list with ,(vertical-space 1) blank line)
(call-with-input-string "\