Comma quibbling: Difference between revisions
Content deleted Content added
→{{header|TXR}}: Handle empty list by making destructuring match for last optional. |
|||
Line 3,150: | Line 3,150: | ||
<lang txrlisp>(defun quib (list) |
<lang txrlisp>(defun quib (list) |
||
(tree-bind (last . lead) (reverse list) |
(tree-bind (: last . lead) (reverse list) |
||
`{@{(nreverse lead) ", "}@(if lead " and ")@last}`))</lang> |
`{@{(nreverse lead) ", "}@(if lead " and ")@last}`))</lang> |
||