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

diff --git a/src/fragment-parse.lisp b/src/fragment-parse.lisp
index b1e9e8c..15a7d14 100644
--- a/src/fragment-parse.lisp
+++ b/src/fragment-parse.lisp
@@ -7,7 +7,7 @@
 
 ;;;----- Licensing notice ---------------------------------------------------
 ;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible Object Design, an object system for C.
 ;;;
 ;;; SOD is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -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)))