about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--README.md2
-rw-r--r--chicanery.extras.scm21
-rw-r--r--chicanery.sld2
3 files changed, 19 insertions, 6 deletions
diff --git a/README.md b/README.md index c8b1fcd..c275ffb 100644 --- a/README.md +++ b/README.md
@@ -34,6 +34,8 @@ Other extras include
34- `(read-port)`, `(read-port port)` reads a port until hitting end-of-file (IDK 34- `(read-port)`, `(read-port port)` reads a port until hitting end-of-file (IDK
35 why this isn't in R7RS!), in chunks of `read-port-chunk-size` 35 why this isn't in R7RS!), in chunks of `read-port-chunk-size`
36- `(defined? x)` returns whether the symbol `x` is bound to a variable 36- `(defined? x)` returns whether the symbol `x` is bound to a variable
37- `(with-input-from-string str thunk)` calls `thunk` with `str` bound as the current-input-port.
38- `(with-output-to-string thunk)` calls `thunk` and returns a string of the output.
37- `(displayed x)`, `(->string x)` returns `x` as a string (via `display`) 39- `(displayed x)`, `(->string x)` returns `x` as a string (via `display`)
38- `(written x)` returns `x` as a string (via `write`) 40- `(written x)` returns `x` as a string (via `write`)
39- `(print x ...)` displays `x ...` followed by a newline 41- `(print x ...)` displays `x ...` followed by a newline
diff --git a/chicanery.extras.scm b/chicanery.extras.scm index dac823f..f264424 100644 --- a/chicanery.extras.scm +++ b/chicanery.extras.scm
@@ -113,17 +113,26 @@
113 (eval sym (interaction-environment)) 113 (eval sym (interaction-environment))
114 #t))))) 114 #t)))))
115 115
116(define (displayed x) 116(define (with-output-to-string thunk)
117 (call-with-port (open-output-string) 117 (call-with-port (open-output-string)
118 (lambda (port) 118 (lambda (port)
119 (display x port) 119 (parameterize ((current-output-port port))
120 (thunk))
120 (get-output-string port)))) 121 (get-output-string port))))
121 122
122(define (written x) 123(define (with-input-from-string s thunk)
123 (call-with-port (open-output-string) 124 (call-with-port (open-input-string s)
124 (lambda (port) 125 (lambda (port)
125 (write x port) 126 (parameterize ((current-input-port port))
126 (get-output-string port)))) 127 (thunk)))))
128
129(define (displayed x)
130 (with-output-to-string
131 (lambda () (display x))))
132
133(define (written x)
134 (with-output-to-string
135 (lambda () (write x))))
127 136
128(define (print . xs) 137(define (print . xs)
129 (for-each display xs) 138 (for-each display xs)
diff --git a/chicanery.sld b/chicanery.sld index 7835e80..a38b1e5 100644 --- a/chicanery.sld +++ b/chicanery.sld
@@ -382,6 +382,8 @@
382 read-port 382 read-port
383 read-port-chunk-size 383 read-port-chunk-size
384 defined? 384 defined?
385 with-output-to-string
386 with-input-from-string
385 displayed ->string 387 displayed ->string
386 written 388 written
387 print) 389 print)