diff options
Diffstat (limited to 'tekuti/match-bind.scm')
-rw-r--r-- | tekuti/match-bind.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tekuti/match-bind.scm b/tekuti/match-bind.scm index 35a28b4..f5bf3f5 100644 --- a/tekuti/match-bind.scm +++ b/tekuti/match-bind.scm @@ -1,16 +1,16 @@ ;; (match-bind) -- binding variables from regular expression matches -;; Copyright (C) 2007, 2009, 2010 Andy Wingo <wingo at pobox dot com> +;; Copyright (C) 2007, 2009, 2010, 2012 Andy Wingo <wingo at pobox dot com> ;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. -;; +;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. -;; +;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <http://www.gnu.org/licenses/>. @@ -52,7 +52,7 @@ (if (or (= start -1) (= end -1)) #f (substring (vector-ref m 0) start end)))))) - + (define *cache* (make-weak-key-hash-table)) (define (memoize-re regex) (cond |