impc:ir:make-struct-str   scheme


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

Implementation

(define impc:ir:make-struct-str
  (lambda (t)
    (let* ((os (make-string 0))
           (args t))
      (emit "{"os)
      (dotimes (i (length args))
        (if (> i 0) (emit ", " os))
        (emit (impc:ir:get-type-str (cdr (list-ref args i))) os))
      (emit "}" os)
      (impc:ir:strip-space os))))


Back to Index

Similar Entries