From 229070d93fabf57be0e21daf867c8745d4b19198 Mon Sep 17 00:00:00 2001 From: Mark Friedman Date: Thu, 9 Jan 1992 23:10:12 +0000 Subject: [PATCH] There was an bug in SKIP-COMMENTS&LABELS where COLON-LINE-END was initialized to 0. I have initialized it to what seems to be the obvious thing. It seems to work, but I really have no idea whether it is correct. --- v7/src/edwin/cinden.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/v7/src/edwin/cinden.scm b/v7/src/edwin/cinden.scm index 3d85d311d..dd696c6bf 100644 --- a/v7/src/edwin/cinden.scm +++ b/v7/src/edwin/cinden.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/cinden.scm,v 1.6 1991/10/29 13:44:22 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/cinden.scm,v 1.7 1992/01/09 23:10:12 markf Exp $ ;;; ;;; Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology ;;; @@ -249,7 +249,11 @@ This is in addition to c-continued-statement-offset." (define (skip-comments&labels start end) (let ((gend (group-end start))) - (let loop ((mark start) (colon-line-end 0)) + ;; There was an bug here where COLON-LINE-END was initialized + ;; to 0. I have initialized it to what seems to be the obvious + ;; thing. It seems to work, but I really have no idea whether + ;; it is correct. -markf + (let loop ((mark start) (colon-line-end (line-end start 0))) (let ((mark (whitespace-end mark gend))) (cond ((mark>= mark end) false) -- 2.25.1