From 6d63bc020e65eb4308a512f279bf42af7c6cacd0 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 7 Jun 2019 14:38:46 -0700 Subject: [PATCH] uncontract --- pollen/private/file-utils.rkt | 8 ++++---- pollen/private/ts.rktd | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/pollen/private/file-utils.rkt b/pollen/private/file-utils.rkt index 8112bc9..879f9ef 100644 --- a/pollen/private/file-utils.rkt +++ b/pollen/private/file-utils.rkt @@ -262,15 +262,15 @@ -(define+provide/contract (get-source path) - (coerce/path? . -> . (or/c #f path?)) +(define+provide (get-source path) + #;(coerce/path? . -> . (or/c #f path?)) (ormap (λ (proc) (proc path)) (list get-markup-source get-markdown-source get-preproc-source get-null-source get-scribble-source))) ;; for backward compatibility (define+provide ->source-path get-source) -(define+provide/contract (->output-path x) - (coerce/path? . -> . coerce/path?) +(define+provide (->output-path x) + #;(coerce/path? . -> . coerce/path?) (cond [(or (markup-source? x) (preproc-source? x) (null-source? x) (markdown-source? x)) (define output-path (unescape-ext (remove-ext x))) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index f404950..65055ba 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1559938751 +1559943526