diff options
Diffstat (limited to 'boudin.util.scm')
| -rw-r--r-- | boudin.util.scm | 8 |
1 files changed, 8 insertions, 0 deletions
| diff --git a/boudin.util.scm b/boudin.util.scm index b5c3efe..916dbf1 100644 --- a/boudin.util.scm +++ b/boudin.util.scm | |||
| @@ -1,12 +1,14 @@ | |||
| 1 | (declare (module (boudin util)) | 1 | (declare (module (boudin util)) |
| 2 | (export assoc-ref | 2 | (export assoc-ref |
| 3 | slurp | 3 | slurp |
| 4 | slurp-bytes | ||
| 4 | wrap-paragraphs | 5 | wrap-paragraphs |
| 5 | edisplay | 6 | edisplay |
| 6 | eprint)) | 7 | eprint)) |
| 7 | 8 | ||
| 8 | (import (chicken io) | 9 | (import (chicken io) |
| 9 | (srfi 1) | 10 | (srfi 1) |
| 11 | (srfi 4) | ||
| 10 | (srfi 152)) | 12 | (srfi 152)) |
| 11 | 13 | ||
| 12 | (define (edisplay x) | 14 | (define (edisplay x) |
| @@ -61,3 +63,9 @@ | |||
| 61 | ((port) | 63 | ((port) |
| 62 | (read-string #f port) ; CHICKEN-ism | 64 | (read-string #f port) ; CHICKEN-ism |
| 63 | ))) | 65 | ))) |
| 66 | |||
| 67 | (define slurp-bytes | ||
| 68 | (case-lambda | ||
| 69 | (() (slurp-bytes (current-input-port))) | ||
| 70 | ((port) | ||
| 71 | (read-u8vector #f port)))) | ||