From 4c2610377c50efdaa74d419d3c24829f23744ab0 Mon Sep 17 00:00:00 2001 From: Arthur Gleckler Date: Wed, 4 Feb 2009 16:00:45 +0000 Subject: [PATCH] Added POSITION operation back to string output ports. My earlier implementation had been removed. --- v7/src/runtime/stringio.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/v7/src/runtime/stringio.scm b/v7/src/runtime/stringio.scm index 68f869f2c..000ef8648 100644 --- a/v7/src/runtime/stringio.scm +++ b/v7/src/runtime/stringio.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: stringio.scm,v 14.5 2008/07/31 05:23:39 cph Exp $ +$Id: stringio.scm,v 14.6 2009/02/04 16:00:45 savannah-arthur Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -456,6 +456,7 @@ USA. (EXTRACT-OUTPUT ,extract-output) (EXTRACT-OUTPUT! ,extract-output!) (OUTPUT-COLUMN ,string-out/output-column) + (POSITION ,string-out/position) (WRITE-SELF ,string-out/write-self)) #f)) @@ -467,6 +468,9 @@ USA. (define (string-out/output-column port) (ostate-column (port/state port))) +(define (string-out/position port) + (ostate-index (port/state port))) + (define (string-out/write-self port output-port) port (write-string " to string" output-port)) -- 2.25.1