diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-10-21 21:43:18 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-10-21 21:43:18 -0400 |
| commit | 47903e9188cb7483a11506358def912a2cc1b2d2 (patch) | |
| tree | 7ae1acc5993f17820bada900f66447cdb96dc368 /syntax-highlight.scm | |
| parent | f74729876fe8f89cdfa176e99d17dc4da9e3e05b (diff) | |
Add (syntax-highlight utils) module.
* syntax-highlight.scm (string->stream): Move it.
* syntax-highlight/parsers.scm (stream->string): Likewise.
* syntax-highlight/utils.scm: New file.
* Makefile.am (SOURCES): Add it.
Diffstat (limited to 'syntax-highlight.scm')
| -rw-r--r-- | syntax-highlight.scm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/syntax-highlight.scm b/syntax-highlight.scm index 8aba7db..6a15dab 100644 --- a/syntax-highlight.scm +++ b/syntax-highlight.scm @@ -27,15 +27,10 @@ #:use-module (srfi srfi-11) #:use-module (srfi srfi-26) #:use-module (srfi srfi-41) + #:use-module (syntax-highlight utils) #:export (highlight highlights->sxml)) -(define (string->stream str) - "Convert the string STR into a stream of characters." - (stream-map (lambda (i) - (string-ref str i)) - (stream-range 0 (string-length str)))) - (define* (highlight highlighter #:optional (stream (current-input-port))) "Apply HIGHLIGHTER, a syntax highlighting procedure, to STREAM. STREAM may be an open port, string, or SRFI-41 character stream. If |