sexpr2cas   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/contrib/cas.xtm

Implementation

(define (sexpr2cas args)
  (let* ((a (cas-xtm-to-string args))
         (b (regex:replace-all a "}" "\)"))
         (c (regex:replace-all b "{" "\("))
         (res (cptr->string (casppoff c))))
    res))


Back to Index