diff options
| -rw-r--r-- | chicanery.extras.scm | 7 |
1 files changed, 4 insertions, 3 deletions
| diff --git a/chicanery.extras.scm b/chicanery.extras.scm index bbd044f..dac823f 100644 --- a/chicanery.extras.scm +++ b/chicanery.extras.scm | |||
| @@ -75,7 +75,8 @@ | |||
| 75 | ;; This sections should be as small as possible | 75 | ;; This sections should be as small as possible |
| 76 | 76 | ||
| 77 | (define (atom? x) | 77 | (define (atom? x) |
| 78 | (not (pair? x))) | 78 | (and (not (pair? x)) |
| 79 | (not (null? x)))) | ||
| 79 | 80 | ||
| 80 | (define read-port-chunk-size | 81 | (define read-port-chunk-size |
| 81 | (make-parameter 512)) | 82 | (make-parameter 512)) |
| @@ -124,8 +125,8 @@ | |||
| 124 | (write x port) | 125 | (write x port) |
| 125 | (get-output-string port)))) | 126 | (get-output-string port)))) |
| 126 | 127 | ||
| 127 | (define (print x) | 128 | (define (print . xs) |
| 128 | (display x) | 129 | (for-each display xs) |
| 129 | (newline)) | 130 | (newline)) |
| 130 | 131 | ||
| 131 | (define ->string displayed) | 132 | (define ->string displayed) |