length test in wrong order

10 years ago · 2781770726
parent 9738f349d4
commit 2781770726
1 changed files with 1 additions and 1 deletions
--- 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))