1 files changed, 13 insertions, 0 deletions
diff --git a/schmaltz.sls b/schmaltz.sls
index 4afcf40..c47467a 100644
--- a/schmaltz.sls
+++ b/schmaltz.sls

@@ -46,6 +46,18 @@
       (lambda (port)
         (render env port))))))
+(define (render->string . args)
+  (call-with-port (open-output-string)
+    (lambda (out)
+      (apply render args)
+      (get-output-string out))))
+(define (render-string->string str . args)
+  (call-with-port (open-output-string)
+    (lambda (out)
+      (apply render-string args)
+      (get-output-string out))))
 ;;; Configuration
 (define render-environment
@@ -83,3 +95,4 @@
 (define (unprintable/backtrack ch)
  (list ch #\#))
+         (display (list->string (reverse acc))))

diff --git a/schmaltz.sls b/schmaltz.sls index 4afcf40..c47467a 100644 --- a/schmaltz.sls +++ b/schmaltz.sls
@@ -46,6 +46,18 @@
46	(lambda (port)	46	(lambda (port)
47	(render env port))))))	47	(render env port))))))
48		48
		49	(define (render->string . args)
		50	(call-with-port (open-output-string)
		51	(lambda (out)
		52	(apply render args)
		53	(get-output-string out))))
		54
		55	(define (render-string->string str . args)
		56	(call-with-port (open-output-string)
		57	(lambda (out)
		58	(apply render-string args)
		59	(get-output-string out))))
		60
49	;;; Configuration	61	;;; Configuration
50		62
51	(define render-environment	63	(define render-environment
@@ -83,3 +95,4 @@
83		95
84	(define (unprintable/backtrack ch)	96	(define (unprintable/backtrack ch)
85	(list ch #\#))	97	(list ch #\#))
		98	(display (list->string (reverse acc))))