From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 2 Jul 2001 18:18:38 +0000 (+0000)
Subject: Fix bug: unfinished change to BACKTRACK-TO.
X-Git-Tag: 20090517-FFI~2680
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=675aa30fb3ad5c1f4b619be9aeb697b969e9c721;p=mit-scheme.git

Fix bug: unfinished change to BACKTRACK-TO.
---

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.