Change render semantics

Now `render` outputs to the current output port, not a string.

`render->string` and `render-string->string` added to output to a string.

2 files changed, 15 insertions, 0 deletions

@@ -1,6 +1,8 @@
 (define-library (schmaltz)
   (export render
           render-string
+          render->string
+          render-string->string
           ;; Configuration
           render-specials
           render-unprintables
@@ -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))))