22 lines
488 B
Racket
22 lines
488 B
Racket
#lang racket/base
|
|
(require racket/list)
|
|
(provide (all-defined-out))
|
|
|
|
(define (text s) s)
|
|
(define (h-append . ss) (apply string-append ss))
|
|
(define (v-concat/s ss)
|
|
(apply string-append ss))
|
|
(define (v-concat ss)
|
|
(apply string-append (add-between ss "\n")))
|
|
(define (apply-infix d ds)
|
|
(add-between ds d))
|
|
(define line "\n")
|
|
(define comma ",")
|
|
(define space " ")
|
|
(define lparen "(")
|
|
(define rparen ")")
|
|
(define dot ".")
|
|
(define (nest n d) d)
|
|
(define char string)
|
|
(define doc? string?)
|