X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/aa14a4cddcb96b681d5c19a2ec8bad382f43b264..c91b90c3bfd3d3e68cc3d3ff3f431d1e73920061:/src/parser/scanner-charbuf-impl.lisp?ds=inline

diff --git a/src/parser/scanner-charbuf-impl.lisp b/src/parser/scanner-charbuf-impl.lisp
index 2d7a4ae..9cafc3d 100644
--- a/src/parser/scanner-charbuf-impl.lisp
+++ b/src/parser/scanner-charbuf-impl.lisp
@@ -190,10 +190,10 @@ (defgeneric charbuf-scanner-map (scanner func &optional fail)
    and wishes to read more.  If DONEP is true then the condition (<= START
    USED END) must hold; the FUNC has consumed the buffer as far as USED
    (exclusive) and has completed successfully; the values DONEP and `t' are
-   returned as the result of CHARBUF-SCANNER-MAP.
+   returned as the result of `charbuf-scanner-map'.
 
    If end-of-file is encountered before FUNC completes successfully then FAIL
-   is called with no arguments, and CHARBUF-SCANNER-MAP returns whatever
+   is called with no arguments, and `charbuf-scanner-map' returns whatever
    FAIL returns.
 
    Observe that, if FAIL returns a second value of nil, then
@@ -369,7 +369,7 @@ (defmethod scanner-interval
 						    :index index))))
 	 (last-link (charbuf-scanner-place-link place-b)))
     (flet ((bad ()
-	     (error "Incorrect places ~S and ~S to SCANNER-INTERVAL."
+	     (error "Incorrect places ~S and ~S to `scanner-interval'."
 		    place-a place-b)))
       (do ((link (charbuf-scanner-place-link place-a)
 		 (charbuf-chain-link-next link))