[bug #63735] string-append

[anonymous]

URL:
  <https://savannah.gnu.org/bugs/?63735>

                 Summary: string-append
                 Project: MIT/GNU Scheme
               Submitter: None
               Submitted: Tue 31 Jan 2023 11:30:34 AM UTC
                Category: runtime
                Severity: 3 - Normal
                Priority: 5 - Normal
              Item Group: Suboptimal behavior
                  Status: None
                 Privacy: Public
             Assigned to: None
         Originator Name: Swedish Chef
        Originator Email: 
             Open/Closed: Open
         Discussion Lock: Any
                Keywords: 


    _______________________________________________________

Follow-up Comments:


-------------------------------------------------------
Date: Tue 31 Jan 2023 11:30:34 AM UTC By: Anonymous
;;;; Append

(define (string-append . strings)
  (%string-concatenate strings 'string-append)
  (string-concatenate strings))

(define (string-concatenate strings)
  (%string-concatenate strings 'string-concatenate))

(define (%string-concatenate strings caller)
  (let ((builder (string-builder)))
    (for-each (lambda (string)
                (guarantee string? string caller)
                (builder string))
              strings)
    (builder 'immutable)))







    _______________________________________________________

Reply to this item at:

  <https://savannah.gnu.org/bugs/?63735>

_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/