Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 00:07:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Avoid use of string-set

Browse source
This commit is contained in:
Justin Ethier 2020-06-01 23:12:23 -04:00
parent d4eb485d19
commit dba2183191
1 changed files with 16 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
scheme/cyclone/pretty-print.sld
View file

@ -287,21 +287,23 @@
; (reverse-string-append l) = (apply string-append (reverse l))
(define (reverse-string-append l)
(apply string-append (reverse l)))
;; JAE - Avoid issue with string-set and multibyte chars.
;; This should be more efficient as well
;(define (rev-string-append l i)
; (if (pair? l)
; (let* ((str (car l))
; (len (string-length str))
; (result (rev-string-append (cdr l) (+ i len))))
; (let loop ((j 0) (k (- (- (string-length result) i) len)))
; (if (< j len)
; (begin
; (string-set! result k (string-ref str j))
; (loop (+ j 1) (+ k 1)))
; result)))
; (make-string i)))
(define (rev-string-append l i)
(if (pair? l)
(let* ((str (car l))
(len (string-length str))
(result (rev-string-append (cdr l) (+ i len))))
(let loop ((j 0) (k (- (- (string-length result) i) len)))
(if (< j len)
(begin
(string-set! result k (string-ref str j))
(loop (+ j 1) (+ k 1)))
result)))
(make-string i)))
(rev-string-append l 0))
;(rev-string-append l 0))
(define (sexp-pretty-print obj . opt)
(let ((port (if (pair? opt) (car opt) (current-output-port))))