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 +;; Copyright (C) 2008, 2010 Andy Wingo ;; 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 +;; Copyright (C) 2008, 2010 Andy Wingo ;; 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 +;; Copyright (C) 2008, 2010 Andy Wingo ;; 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 +;; Copyright (C) 2008, 2010 Andy Wingo ;; 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 +;; Copyright (C) 2008, 2010 Andy Wingo ;; 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?