From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 27 Jun 2001 01:53:53 +0000 (+0000)
Subject: Fix code-generation bug in MATCH element.
X-Git-Tag: 20090517-FFI~2694
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=adf7673ae8f08d12d4f307e29c2cf1f1451abe06;p=mit-scheme.git

Fix code-generation bug in MATCH element.
---

diff --git a/v7/src/star-parser/parser.scm b/v7/src/star-parser/parser.scm
index 7d832dad1..29fda85ab 100644
--- a/v7/src/star-parser/parser.scm
+++ b/v7/src/star-parser/parser.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: parser.scm,v 1.7 2001/06/26 23:46:41 cph Exp $
+;;; $Id: parser.scm,v 1.8 2001/06/27 01:53:53 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -151,10 +151,12 @@
     (lambda (start-pointers)
       (compile-matcher-expression matcher start-pointers
 	(lambda (pointers)
-	  (if-succeed pointers
-		      `(VECTOR (GET-PARSER-BUFFER-TAIL
-				,*buffer-name*
-				,(current-pointer start-pointers)))))
+	  (with-variable-binding
+	      `(VECTOR (GET-PARSER-BUFFER-TAIL
+			,*buffer-name*
+			,(current-pointer start-pointers)))
+	    (lambda (v)
+	      (if-succeed pointers v))))
 	if-fail))))
 
 (define-parser (noise matcher)