From 675aa30fb3ad5c1f4b619be9aeb697b969e9c721 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 2 Jul 2001 18:18:38 +0000
Subject: [PATCH] Fix bug: unfinished change to BACKTRACK-TO.

---
 v7/src/star-parser/shared.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/star-parser/shared.scm b/v7/src/star-parser/shared.scm
index ab6818814..8a17a95c2 100644
--- a/v7/src/star-parser/shared.scm
+++ b/v7/src/star-parser/shared.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: shared.scm,v 1.7 2001/07/02 12:14:35 cph Exp $
+;;; $Id: shared.scm,v 1.8 2001/07/02 18:18:38 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -106,10 +106,10 @@
   ;; position, which is wasteful since only the last call in the
   ;; sequence is meaningful.
   (cons (car pointer)
-	(let ((p (or (cdr pointer) (car pointer))))
-	  (if (eq? (car pointer) (car backtrack-pointer))
+	(let ((p (or (cdr backtrack-pointer) (car backtrack-pointer))))
+	  (if (eq? (car pointer) p)
 	      #f
-	      (car backtrack-pointer)))))
+	      p))))
 
 (define (handle-pending-backtracking pointer procedure)
   ;; Perform a pending backtracking operation, if any.
-- 
2.25.1