From 47903e9188cb7483a11506358def912a2cc1b2d2 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 21 Oct 2015 21:43:18 -0400
Subject: 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.
---
 syntax-highlight/parsers.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'syntax-highlight/parsers.scm')

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."
-- 
cgit v1.2.3