Comment-out debugging
This commit is contained in:
parent
3560243e78
commit
0f09a25063
1 changed files with 1 additions and 1 deletions
|
@ -189,7 +189,7 @@ along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
(let ((memo (make-hash-table)))
|
(let ((memo (make-hash-table)))
|
||||||
(lambda (uri)
|
(lambda (uri)
|
||||||
(let ((key (uri->string uri)))
|
(let ((key (uri->string uri)))
|
||||||
(pk 'http-head-memoized key)
|
;;(pk 'http-head-memoized key)
|
||||||
(unless (hash-ref memo key #f)
|
(unless (hash-ref memo key #f)
|
||||||
(with-exception-handler
|
(with-exception-handler
|
||||||
(lambda (e)
|
(lambda (e)
|
||||||
|
|
Loading…
Add table
Reference in a new issue