impc:ti:word-upcase   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/llvmti.xtm

Implementation

(define impc:ti:word-upcase
  (lambda (w)
    (let* ((n (string->list w))
           (u (char-upcase (car n)))
           (n1 (list->string (cons u (cdr n)))))
      n1)))


Back to Index