You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
362 B
Racket
16 lines
362 B
Racket
#lang racket/base
|
|
(require racket/contract)
|
|
(require (planet mb/pollen/tools) (planet mb/pollen/decode))
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(module+ test (require rackunit))
|
|
|
|
(define (root . items)
|
|
(named-xexpr? . -> . named-xexpr?)
|
|
`(root ,@(merge-newlines items)))
|
|
|
|
(module+ test
|
|
(check-equal? (root "foo" "\n" "\n") '(root "foo" "\n\n")))
|
|
|
|
(define foo "bar") |