From 70d8dd5d6fb540aa8002a7eea8cc91d54df84feb Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 10 Nov 2001 06:31:47 +0000
Subject: [PATCH] Add comment explaining the WITH-POINTER kludge.

---
 v7/src/star-parser/matcher.scm | 4 +++-
 v7/src/star-parser/parser.scm  | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/v7/src/star-parser/matcher.scm b/v7/src/star-parser/matcher.scm
index 828c53c58..4e93be89c 100644
--- a/v7/src/star-parser/matcher.scm
+++ b/v7/src/star-parser/matcher.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: matcher.scm,v 1.21 2001/11/09 21:38:47 cph Exp $
+;;; $Id: matcher.scm,v 1.22 2001/11/10 06:31:16 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -278,6 +278,8 @@
 
 (define-matcher (with-pointer identifier expression)
   pointer
+  ;; Ignore the POINTER context.  This is a kludge that prevents the
+  ;; binding of IDENTIFIER from being discarded by the optimizer.
   `((LAMBDA (,identifier)
       ,(compile-matcher-expression expression identifier ks kf))
     ,(fetch-pointer)))
diff --git a/v7/src/star-parser/parser.scm b/v7/src/star-parser/parser.scm
index 6f4a76c68..7321240d9 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.24 2001/11/09 21:38:43 cph Exp $
+;;; $Id: parser.scm,v 1.25 2001/11/10 06:31:47 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -283,6 +283,8 @@
 
 (define-parser (with-pointer identifier expression)
   pointer
+  ;; Ignore the POINTER context.  This is a kludge that prevents the
+  ;; binding of IDENTIFIER from being discarded by the optimizer.
   `((LAMBDA (,identifier)
       ,(compile-parser-expression expression identifier ks kf))
     ,(fetch-pointer)))
-- 
2.25.1