kmx.io/prism.js/examples/prism-racket.html

Branch - branch -master

• Show log

  Commit

• Hash : 053016ef
  Author :
  Date : 2020-04-27T23:18:30
  

  Added support for Racket (#2315)

Download

• examples/prism-racket.html

• <h2>Full example</h2>
  <pre><code>; Source: https://github.com/mbutterick/pollen/blob/master/pollen/private/to-string.rkt
  
  #lang racket/base
  (provide (all-defined-out))
  
  (define (to-string x)
    (cond
      [(string? x) x]
      [(or (null? x) (void? x)) ""]
      [(or (symbol? x) (number? x) (path? x) (char? x)) (format "~a" x)]
      ;; special handling for procedures, because if a procedure reaches this func,
      ;; it usually indicates a failed attempt to use a tag function.
      ;; meaning, it's more useful to raise an error.
      [(procedure? x) (error 'pollen "Can't convert procedure ~a to string" x)]
      [else (format "~v" x)]))</code></pre>
  

Download