diff options
| author |  Andy Wingo | 2010-10-14 12:54:56 +0200 |
|---|---|---|
| committer | Andy Wingo | 2010-11-13 18:47:03 +0100 |
| commit | 974bdce47d8a9ccc26217f8ddd0f2fbf595843b6 (patch) | |
| tree | fcb6291a5036ce4a5a3fd95038adb459b1cd6edc | |
| parent | 35873a522a6ba658edea24b36bcbc4d9cd64664e (diff) | |
| download | tekuti-974bdce47d8a9ccc26217f8ddd0f2fbf595843b6.tar.gz tekuti-974bdce47d8a9ccc26217f8ddd0f2fbf595843b6.zip | |
update to use (tekuti match-bind)
* tekuti/comment.scm:
* tekuti/filters.scm:
* tekuti/git.scm:
* tekuti/post.scm:
* tekuti/request.scm:
* tekuti/util.scm: Update to use (tekuti match-bind).
| -rw-r--r-- | tekuti/comment.scm | 4 | ||||
| -rw-r--r-- | tekuti/filters.scm | 4 | ||||
| -rw-r--r-- | tekuti/git.scm | 4 | ||||
| -rw-r--r-- | tekuti/post.scm | 4 | ||||
| -rw-r--r-- | tekuti/request.scm | 2 | ||||
| -rw-r--r-- | tekuti/util.scm | 7 |
6 files changed, 12 insertions, 13 deletions
diff --git a/tekuti/comment.scm b/tekuti/comment.scm index fbcff6b..54229f0 100644 --- a/tekuti/comment.scm +++ b/tekuti/comment.scm @@ -1,5 +1,5 @@ ;; Tekuti -;; Copyright (C) 2008 Andy Wingo <wingo at pobox dot com> +;; Copyright (C) 2008, 2010 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 @@ -32,7 +32,7 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-19) #:use-module (sxml transform) - #:use-module (match-bind) + #:use-module (tekuti match-bind) #:export (blob->comment comment-sxml-content comment-timestamp comment-readable-date bad-new-comment-post? make-new-comment)) diff --git a/tekuti/filters.scm b/tekuti/filters.scm index eaa37dd..dbc2684 100644 --- a/tekuti/filters.scm +++ b/tekuti/filters.scm @@ -1,5 +1,5 @@ ;; Tekuti -;; Copyright (C) 2008 Andy Wingo <wingo at pobox dot com> +;; Copyright (C) 2008, 2010 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 @@ -27,7 +27,7 @@ (define-module (tekuti filters) #:use-module (sxml simple) #:use-module (sxml transform) - #:use-module (match-bind) + #:use-module (tekuti match-bind) #:use-module (tekuti util) #:export (wordpress->sxml *allowed-tags* bad-user-submitted-xhtml?)) diff --git a/tekuti/git.scm b/tekuti/git.scm index 118a09c..f6b18b5 100644 --- a/tekuti/git.scm +++ b/tekuti/git.scm @@ -1,5 +1,5 @@ ;; Tekuti -;; Copyright (C) 2008 Andy Wingo <wingo at pobox dot com> +;; Copyright (C) 2008, 2010 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 @@ -30,7 +30,7 @@ #:use-module (tekuti util) #:use-module (tekuti config) #:use-module (scheme kwargs) - #:use-module (match-bind) + #:use-module (tekuti match-bind) #:use-module ((srfi srfi-1) #:select (filter-map partition delete-duplicates)) #:use-module (srfi srfi-34) diff --git a/tekuti/post.scm b/tekuti/post.scm index 2b96c3f..e042a9d 100644 --- a/tekuti/post.scm +++ b/tekuti/post.scm @@ -1,5 +1,5 @@ ;; Tekuti -;; Copyright (C) 2008 Andy Wingo <wingo at pobox dot com> +;; Copyright (C) 2008, 2010 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 @@ -26,7 +26,7 @@ (define-module (tekuti post) #:use-module (srfi srfi-1) - #:use-module (match-bind) + #:use-module (tekuti match-bind) #:use-module (tekuti util) #:use-module (tekuti url) #:use-module (tekuti comment) diff --git a/tekuti/request.scm b/tekuti/request.scm index 536798a..3cba561 100644 --- a/tekuti/request.scm +++ b/tekuti/request.scm @@ -27,7 +27,7 @@ (define-module (tekuti request) #:use-module ((srfi srfi-1) #:select (find-tail fold)) #:use-module (scheme kwargs) - #:use-module (match-bind) + #:use-module (tekuti match-bind) #:use-module (tekuti util) #:use-module (tekuti url) #:use-module (tekuti config) diff --git a/tekuti/util.scm b/tekuti/util.scm index 92e1853..6482ade 100644 --- a/tekuti/util.scm +++ b/tekuti/util.scm @@ -1,5 +1,5 @@ ;; Tekuti -;; Copyright (C) 2008 Andy Wingo <wingo at pobox dot com> +;; Copyright (C) 2008, 2010 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 @@ -25,11 +25,10 @@ ;;; Code: (define-module (tekuti util) - #:use-module (match-bind) - #:use-module (scheme kwargs) + #:use-module (tekuti match-bind) #:use-module (srfi srfi-1) #:use-module (srfi srfi-19) - #:export (expanduser match-lines dbg unwind-protect dbg dsu-sort + #:export (expanduser match-lines dbg unwind-protect dsu-sort hash-push! list-has-length? list-head-match mapn filter-mapn take-max read-hash write-hash shell:quote foldn call-with-temp-file emailish? urlish? |