From 06c2b6f7a077988c5f12bd796a9517df10d09043 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 12 Nov 1995 05:58:57 +0000 Subject: [PATCH] Generate more output to describe what is happening. --- v7/src/rcs/logmer.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/rcs/logmer.scm b/v7/src/rcs/logmer.scm index c2da63297..cc4ed7d0a 100644 --- a/v7/src/rcs/logmer.scm +++ b/v7/src/rcs/logmer.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: logmer.scm,v 1.12 1995/11/12 05:55:42 cph Exp $ +$Id: logmer.scm,v 1.13 1995/11/12 05:58:57 cph Exp $ Copyright (c) 1988-95 Massachusetts Institute of Technology @@ -101,7 +101,7 @@ MIT in each case. |# (write-string "; state: " port) (write-string (delta/state delta) port) (newline port)) - + (define (compress-entries entries) (if (null? entries) '() @@ -120,7 +120,7 @@ MIT in each case. |# (lambda (similar entries*) (receiver (cons (car entries) similar) entries*)))))))) - + (define (read-entries pairs notification-port) (let ((prefix (greatest-common-prefix (map car pairs)))) (append-map! -- 2.25.1