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/parsers.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/parsers.scm')
| -rw-r--r-- | syntax-highlight/parsers.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/syntax-highlight/parsers.scm b/syntax-highlight/parsers.scm index 41975d6..c631a59 100644 --- a/syntax-highlight/parsers.scm +++ b/syntax-highlight/parsers.scm @@ -28,6 +28,7 @@ #:use-module (srfi srfi-11) #:use-module (srfi srfi-26) #:use-module (srfi srfi-41) + #:use-module (syntax-highlight utils) #:export (parse-fail parse-bind parse-return @@ -141,8 +142,6 @@ parser always succeeds." (values (reverse results) remaining)))))) -(define stream->string (compose list->string stream->list)) - (define (parse-string str) "Create a parser that succeeds when the front of the stream contains the character sequence in STR." |