bugMIT/GNU Scheme - Bugs: bug #63735, string-append

 
 

bug #63735: string-append

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:  Fixed Privacy:  Public
Assigned to:  None Originator Name:  Swedish Chef
Originator Email:  -email is unavailable- Open/Closed:  Closed
Keywords: 
* Mandatory Fields

Add a New Comment Rich Markup
   

Wed 01 Feb 2023 03:39:08 AM UTC, comment #1: 

Thank you.  Fixed in git.

Chris Hanson <cph>
Group administrator
Tue 31 Jan 2023 11:30:34 AM UTC, original submission:  

;;;; 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)))

Anonymous

 

(Note: upload size limit is set to 16384 kB, after insertion of the required escape characters.)

Attach Files:
   
   
Comment:
   

No files currently attached

 

Depends on the following items: None found

Items that depend on this one: None found

 

Carbon-Copy List
  • -email is unavailable- added by cph (Posted a comment)
  •  

    There are 0 votes so far. Votes easily highlight which items people would like to see resolved in priority, independently of the priority of the item set by tracker managers.

    Only logged-in users can vote.

     

    Follow 2 latest changes.

    Date Changed by Updated Field Previous Value => Replaced by
    2023-02-01 cph Open/ClosedOpen Closed
    2023-02-01 cph StatusNone Fixed

    Back to the top

    Powered by Savane 3.12