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.scm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'syntax-highlight.scm')

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