1 files changed, 0 insertions, 11 deletions
diff --git a/lib/read.scm b/lib/read.scm
index f84b3a5..ea43b06 100644
--- a/lib/read.scm
+++ b/lib/read.scm

@@ -36,17 +36,6 @@
         ((null? words)                            ; empty line
          (parse-lines (cdr lines) doc))
         ((equal? (car words) "```")               ; verbatim
-          ;; Format for verbatim header:
-          ;; ``` ?html | command ...
-          ;;     -- only run command on block with html output.
-          ;;        other outputs process the block normally
-          ;; ``` ?!html | command ...
-          ;;     -- only run command on block when *not* outputting html.
-          ;;        html processes the block normally
-          ;; ``` ?:html | command ...
-          ;;     -- like ?html, but ignore the block in non-html outputs.
-          ;;;; FIXME: I think this necessitates a special emit-verbatim
-          ;;;; function.
          (parse-verbatim (cdr lines) doc '()
                          ;;; FIXME
                          (cons 'verb (cdr words))))

diff --git a/lib/read.scm b/lib/read.scm index f84b3a5..ea43b06 100644 --- a/lib/read.scm +++ b/lib/read.scm
@@ -36,17 +36,6 @@
36	((null? words) ; empty line	36	((null? words) ; empty line
37	(parse-lines (cdr lines) doc))	37	(parse-lines (cdr lines) doc))
38	((equal? (car words) "```") ; verbatim	38	((equal? (car words) "```") ; verbatim
39	;; Format for verbatim header:
40	;; ``` ?html \| command ...
41	;; -- only run command on block with html output.
42	;; other outputs process the block normally
43	;; ``` ?!html \| command ...
44	;; -- only run command on block when not outputting html.
45	;; html processes the block normally
46	;; ``` ?:html \| command ...
47	;; -- like ?html, but ignore the block in non-html outputs.
48	;;;; FIXME: I think this necessitates a special emit-verbatim
49	;;;; function.
50	(parse-verbatim (cdr lines) doc '()	39	(parse-verbatim (cdr lines) doc '()
51	;;; FIXME	40	;;; FIXME
52	(cons 'verb (cdr words))))	41	(cons 'verb (cdr words))))