pull/9/head
Matthew Butterick 11 years ago
parent 3cb9a37195
commit fd8f1685d1

@ -75,11 +75,6 @@
[(_ condition body ...) [(_ condition body ...)
#'(if condition (string-append* #'(if condition (string-append*
(with-handlers ([exn:fail? (λ(exn) (error (format "when/block: ~a" (exn-message exn))))]) (with-handlers ([exn:fail? (λ(exn) (error (format "when/block: ~a" (exn-message exn))))])
(map ->string (list body ...)))) (map ->string (list body ...)))) ; todo: should this be ->html not ->string?
"")])) "")]))
(module+ main
(when/block #t (find 'topic "/Users/mb/git/bpt/introduction.html")))
Loading…
Cancel
Save