suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Correctly handle added / kept elements within removed elements, for @hlite.

Browse Source
This commit is contained in:
Georges Dupéron 2017-05-15 22:05:06 +02:00
parent a499901ead
commit 35871c47c9
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
diff1.rkt
View File

@ -233,9 +233,18 @@
(loop2 #f (loop2 #f
(cdr guide) (cdr guide)
(cdr body) (cdr body)
(if (eq? mode '-) (cond
acc [(and (eq? mode '-)
(cons (loop mode (car guide) (car body)) acc)))] (or (pair? (car body))
(and (syntax (car body))
(pair? (syntax-e (car body))))))
(let ([r (loop mode (car guide) (car body))])
(append (if (syntax? r) (syntax->list r) r)
acc))]
[(eq? mode '-)
acc]
[else
(cons (loop mode (car guide) (car body)) acc)]))]
;; If body is not a pair, then we will treat it as an ;; If body is not a pair, then we will treat it as an
;; "improper tail" element, unless it is null? ;; "improper tail" element, unless it is null?
[(null? body) [(null? body)