diff options
| author | Case Duckworth | 2023-09-15 00:19:37 -0500 |
|---|---|---|
| committer | Case Duckworth | 2023-09-15 00:19:37 -0500 |
| commit | 61d3b6aae43e1ad870e7832ec964964124eacb1b (patch) | |
| tree | 91c59e06e2bb735ce4ac1573fbb9ac9a7b553865 /boudin.util.scm | |
| parent | Bump to 1.0 (diff) | |
| download | boudin-main.tar.gz boudin-main.zip | |
Fix bugs and implement changes main
I can actually build a (one-page) site!
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)))) | ||