X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/e0808c472145fc81e52898bc9ac289e10c4f4f41..b944e68b291d56a561c8797e138b95f1b1092d0a:/src/fragment-parse.lisp

diff --git a/src/fragment-parse.lisp b/src/fragment-parse.lisp
index 8d0f939..15a7d14 100644
--- a/src/fragment-parse.lisp
+++ b/src/fragment-parse.lisp
@@ -135,11 +135,12 @@ (defun parse-delimited-fragment (scanner begin end &key keep-end)
   (if (if (eq begin t)
 	  (not (scanner-at-eof-p scanner))
 	  (eql (token-type scanner) begin))
-      (multiple-value-prog1 (values (scan-c-fragment scanner
-						     (if (listp end)
-							 end
-							 (list end)))
-				    t t)
+      (multiple-value-prog1
+	  (values (scan-c-fragment scanner
+				   (if (listp end) end
+				       (list end)))
+		  t
+		  t)
 	(scanner-step scanner)
 	(unless keep-end (scanner-step scanner)))
       (values (list begin) nil nil)))