|
|
|
@ -23,7 +23,7 @@
|
|
|
|
#:use-module (ice-9 receive)
|
|
|
|
#:use-module (ice-9 receive)
|
|
|
|
#:use-module (sxml transform)
|
|
|
|
#:use-module (sxml transform)
|
|
|
|
#:export (bubble-term)
|
|
|
|
#:export (bubble-term)
|
|
|
|
#:reexport (pre-post-order))
|
|
|
|
#:re-export (pre-post-order))
|
|
|
|
|
|
|
|
|
|
|
|
(define (key-contains-defer str)
|
|
|
|
(define (key-contains-defer str)
|
|
|
|
(lambda ($pair) (string-contains (symbol->string (car $pair)) str)))
|
|
|
|
(lambda ($pair) (string-contains (symbol->string (car $pair)) str)))
|
|
|
|
|