source: project/release/5/string-utils/trunk/utf8-string-interpolation.scm @ 37679

Last change on this file since 37679 was 37679, checked in by kon, 6 weeks ago

fix string-interpolation (per #<#TAG)

File size: 725 bytes
Line 
1;;;; utf8-string-interpolation.scm  -*- Scheme -*-
2;;;; Kon Lovett, Jul '18
3;;;; Kon Lovett, Sep '17
4
5(module utf8-string-interpolation
6
7(;export
8  string-interpolate)
9
10(import (except scheme read-char #;peek-char #;read)
11  (chicken base)
12  (chicken type)
13  (only (chicken string) ->string)
14  (only utf8-srfi-13 string-concatenate-reverse #;reverse-list->string)
15  (only utf8 read-char list->string #;peek-char #;read)
16  (only (srfi 1) reverse!)
17  string-interpolation-syntax)
18
19;refs parentheses-synonyms
20
21;;;
22
23(define-inline (reverse-list->string clist)
24  (list->string (reverse! clist)) )
25
26(include "string-interpolation-body")
27
28;;;
29
30(set-sharp-string-interpolation-syntax string-interpolate)
31
32) ;utf8-string-interpolation
Note: See TracBrowser for help on using the repository browser.