Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.

templates.scm 408B

1234567891011121314
  1. (module templates (render-template)
  2. (import scheme (chicken string))
  3. (define (render-template node)
  4. (cond
  5. ((eq? node '()) "")
  6. ((string? node) node)
  7. (else
  8. (let* ([tag (symbol->string (car node))]
  9. [body (cdr node)])
  10. (string-append
  11. "<" tag ">"
  12. (string-intersperse (map render-template body) "")
  13. "</" tag ">"))))))