From: Chris Hanson Date: Sat, 11 Oct 2003 04:00:24 +0000 (+0000) Subject: Change CALL-ON-PARSER-BUFFER-TAIL to CALL-WITH-PARSER-BUFFER-TAIL. X-Git-Tag: 20090517-FFI~1772 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dee5f32fa42ab2a5e93a670724756261f1ea9ef1;p=mit-scheme.git 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 4e07678fd..138474ad7 100644 --- 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 d1f567d2f..3912f782c 100644 --- 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