Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | use memv instead of memq for string-replace (comment fix) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
4405ad641b816677a43f939e7485b490 |
| User & Date: | aldo 2017-12-06 16:56:04 |
Context
|
2018-01-08
| ||
| 17:10 | SDL_Image added check-in: 0e3c53a30e user: ovenpasta@users.noreply.github.com tags: trunk | |
|
2017-12-06
| ||
| 16:56 | use memv instead of memq for string-replace (comment fix) check-in: 4405ad641b user: aldo tags: trunk | |
| 16:55 | use memv instead of memq for string-replace check-in: d53b96b8b6 user: aldo tags: trunk | |
Changes
Changes to thunder-utils.sls.
39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 |
(unless (and (null? t) discard-null?)
(set! res (append res (list (list->string t)))))
(loop (cdr l) '()))
(loop (cdr l) (append t (list (car l)))))))]))
;; POSSIBLE THAT THIS NOT EXIST?
;; if x is a character: (eqv? s[i] x) => s[i] = y
;; if x is a list: (memq s[i] x) => s[i] = y
(define (string-replace s x y)
(list->string
(let ([cmp (if (list? x) memv eqv?)])
(map (lambda (z) (if (cmp z x) y z)) (string->list s)))))
;; WHY THERE NOT EXISTS BYTEVECTOR-COPY WITH src-start and n? F*** YOU
|
| |
39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 |
(unless (and (null? t) discard-null?)
(set! res (append res (list (list->string t)))))
(loop (cdr l) '()))
(loop (cdr l) (append t (list (car l)))))))]))
;; POSSIBLE THAT THIS NOT EXIST?
;; if x is a character: (eqv? s[i] x) => s[i] = y
;; if x is a list: (memv s[i] x) => s[i] = y
(define (string-replace s x y)
(list->string
(let ([cmp (if (list? x) memv eqv?)])
(map (lambda (z) (if (cmp z x) y z)) (string->list s)))))
;; WHY THERE NOT EXISTS BYTEVECTOR-COPY WITH src-start and n? F*** YOU
|