Better explanation.

axch · May 23, 2013 · 36f17e1 · 36f17e1
1 parent 2ac9f38
commit 36f17e1
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/patterns.scm b/patterns.scm
@@ -300,8 +300,9 @@
   ((y . (b b b b)) (x . (b)))
   ((y . (b b)) (x . (b b)))
   ((y . ()) (x . (b b b)))) |#
-;;; Nice pattern inspection procedure that will be used by the
-;;; pattern-directed invocation system.
+;;; Pattern inspection procedure that will be used to make rules.
+;;; This does not take into account the possibility of matching
+;;; extensions that introduce new variables.
 
 (define (match:pattern-names pattern)
   (let loop ((pattern pattern) (names '()))