Change CALL-ON-PARSER-BUFFER-TAIL to CALL-WITH-PARSER-BUFFER-TAIL.

diff --git a/v7/src/runtime/parser-buffer.scm b/v7/src/runtime/parser-buffer.scm
index 4e07678fda8770c374bed7b8993fa5e7e68c2d18..138474ad77dfb77702a3f3418315b72af552dd14 100644 (file)
--- a/v7/src/runtime/parser-buffer.scm
+++ b/v7/src/runtime/parser-buffer.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: parser-buffer.scm,v 1.9 2003/10/11 03:48:16 cph Exp $
+$Id: parser-buffer.scm,v 1.10 2003/10/11 04:00:17 cph Exp $
 
 Copyright 2001,2002,2003 Massachusetts Institute of Technology
 
@@ -90,9 +90,9 @@ USA.
   (set-parser-buffer-line! buffer (parser-buffer-pointer-line p)))
 
 (define (get-parser-buffer-tail buffer p)
-  (call-on-parser-buffer-tail buffer p substring))
+  (call-with-parser-buffer-tail buffer p substring))
 
-(define (call-on-parser-buffer-tail buffer p procedure)
+(define (call-with-parser-buffer-tail buffer p procedure)
   ;; P must be a buffer pointer previously returned by
   ;; GET-PARSER-BUFFER-POINTER.  Call PROCEDURE on the substring
   ;; between P and the current buffer pointer.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index d1f567d2f64101a847a24059432c5c05199077bb..3912f782cd5eefba1c5054be31049870d830d9b7 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.464 2003/10/11 03:48:07 cph Exp $
+$Id: runtime.pkg,v 14.465 2003/10/11 04:00:24 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1996,1997,1998,1999 Massachusetts Institute of Technology
@@ -4485,7 +4485,7 @@ USA.
   (files "parser-buffer")
   (parent (runtime))
   (export ()
-         call-on-parser-buffer-tail
+         call-with-parser-buffer-tail
          discard-parser-buffer-head!
          get-parser-buffer-pointer
          get-parser-buffer-tail