From 278177072678f621e4197f6769944828745c2c47 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 25 Mar 2014 11:46:37 -0700 Subject: [PATCH] length test in wrong order --- main-base.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/main-base.rkt b/main-base.rkt index 5e6560c..e7c13d8 100644 --- a/main-base.rkt +++ b/main-base.rkt @@ -89,7 +89,7 @@ `(placeholder-root ,@(cons (meta 'here-path: here-path) ;; cdr strips initial linebreak, but make sure doc-raw isn't blank - (if (and (list? doc-raw) (> 0 (length doc-raw))) (cdr doc-raw) doc-raw))))) + (if (and (list? doc-raw) (> (length doc-raw) 0)) (cdr doc-raw) doc-raw))))) (define-values (doc-without-metas metas) (split-metas-to-hash doc-with-metas))