Re: improving Janek's \dynamic function (for combo dynamics)

[Thomas Morley]

2017-08-27 10:40 GMT+02:00 Thomas Morley <address@hidden>:

> #(define (split-string strg char-pair)
> ;; split a string at all occurrences of both characters in char-pair
> ;; remark: with guilev2 string-split accepts a char-set as second argument
>   (append-map
>     (lambda (s) (string-split s #\}))
>     (string-split strg #\{)))

Ofcourse this should be:
#(define (split-string strg char-pair)
;; split a string at all occurrences of both characters in char-pair
;; remark: with guilev2 string-split accepts a char-set as second argument
  (append-map
    (lambda (s) (string-split s (car char-pair)))
    (string-split strg (cdr char-pair))))