Skip to content

Fixes to 3b master #5

Closed
wants to merge 4 commits into from
View
5 package.lisp
@@ -31,8 +31,5 @@
#:parse-and-print-to-stream
#:print-doc-to-stream
#:*smart-quotes*
+ #:print-tagged-element
))
-
-
-
-
View
7 parser.lisp
@@ -227,13 +227,13 @@
(:constant :bullet-list))
(defrule bullet-list (and (& bullet) (or list-tight list-loose))
(:destructure (a b)
- (cons a b)))
+ (cons :bullet-list b)))
(defrule enumerator (and nonindent-space (+ dec-digit) #\. (+ space-char))
(:constant :counted-list))
(defrule ordered-list (and (& enumerator) (or list-tight list-loose))
(:destructure (a b)
- (cons a b)))
+ (cons :counted-list b)))
(defrule list-tight (and (+ list-item-tight)
@@ -447,8 +447,9 @@
symbol)
"internal hook for extending 'inline' grammar, don't modify directly"))
+(defrule inline-extensions (or ))
-(defrule inline #. (cons 'or %inline-rules%))
+(defrule inline #. (list* 'or 'inline-extensions %inline-rules%))
(defrule maybe-alphanumeric (& alphanumeric)
(:constant ""))
View
3 printer.lisp
@@ -28,7 +28,8 @@
(defun lookup-reference (ref)
#++(format t "lookup ref ~s -> ~s~%" (print-label-to-string ref)
(gethash (print-label-to-string ref) *references*))
- (gethash (print-label-to-string ref) *references*))
+ (if *references*
+ (gethash (print-label-to-string ref) *references*)))
(defun print-escaped (string stream)
Something went wrong with that request. Please try again.