From 1bba772e841118d1b775126b72ab61316822a6b2 Mon Sep 17 00:00:00 2001
From: Greg Cooper <greg@cs.brown.edu>
Date: Mon, 1 Sep 2008 23:22:35 +0000
Subject: [PATCH] fix a bug in frtime's implementation of list->string

svn: r11515
---
 collects/frtime/mzscheme-utils.ss | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/frtime/mzscheme-utils.ss b/collects/frtime/mzscheme-utils.ss
index b6bd167ff2..2a68c0a0c9 100644
--- a/collects/frtime/mzscheme-utils.ss
+++ b/collects/frtime/mzscheme-utils.ss
@@ -307,6 +307,9 @@
      [(null? lst) 0]
      [else (error 'length (format "expects list, given ~a" lst))]))
   
+  (define (frp:list->string lst)
+    (lift #t list->string (raise-reactivity lst)))
+
   (define (reverse lst)
     (let loop ([lst lst] [acc ()])
       (if (pair? lst)
@@ -347,6 +350,7 @@
            (rename frp:case case)
            (rename frp:apply apply)
            (rename frp:length length)
+           (rename frp:list->string list->string)
            reverse
            
            (lifted + - * / = 
@@ -361,7 +365,7 @@
                    string-locale-ci<? string-locale-ci=? atan asin acos exact? magnitude imag-part
                    real-part numerator abs log lcm gcd arithmetic-shift integer-sqrt make-rectangular
                    complex? char>? char<? char=?
-                   char-numeric? date-time-zone-offset list->string substring string->list
+                   char-numeric? date-time-zone-offset substring string->list
                    string-ci<? string-ci>=? string<=? string-ci<=? string>? string-locale<? string=?
                    string-length string-ref
                    floor angle round