src/: Error message cleanup.

[sod] / src / fragment-parse.lisp

diff --git a/src/fragment-parse.lisp b/src/fragment-parse.lisp
index 8e32b077933c0f572cfcf62e29b5e18c19112354..c958da350ee6605f2f22b1827ceafc3ad6e787cd 100644 (file)
--- a/src/fragment-parse.lisp
+++ b/src/fragment-parse.lisp
@@ -98,7 +98,7 @@ (defun scan-c-fragment (scanner end-chars)
              ((or #\) #\] #\})
               (if (eql it delim)
                   (setf delim (pop stack))
-                  (cerror* "Unmatched `~C.'." it)))
+                  (cerror* "Unmatched `~C'" it)))
 
              ;; String and character literals.
              ((seq ((quote (or #\" #\'))