Go to the documentation of this file. 1 static const char *
const GUILE_module_defn =
" \ 2 (define (to-string-maybe x) \ 8 (and (string? x) (string-null? x))) \ 11 ((or (symbol? x) (number? x)) \ 15 ((and (string? x) (string-every char-set:printing x)) \ 17 (else (error \"Unknown object:\" x)))) \ 18 (define (obj-to-str x) \ 21 (cond ((pair? x) (walk (car x)) (walk (cdr x))) \ 22 ((to-string-maybe x) => (lambda (s) (set! acc (cons s acc)))))) \ 24 (string-join (reverse! acc)))) \ 26 (gmk-expand (format #f \"$(~a)\" (obj-to-str v)))) \ 27 (export gmk-expand gmk-eval gmk-var) \