diff options
| -rwxr-xr-x | fff.scm | 5 |
1 files changed, 4 insertions, 1 deletions
| diff --git a/fff.scm b/fff.scm index 686ea87..2623211 100755 --- a/fff.scm +++ b/fff.scm | |||
| @@ -118,6 +118,8 @@ FLAT FUCK FORMAT : Specification | |||
| 118 | (define-peg-pattern AT none "@") | 118 | (define-peg-pattern AT none "@") |
| 119 | 119 | ||
| 120 | 120 | ||
| 121 | ;;; Utility functions | ||
| 122 | |||
| 121 | (define (ensure-nested-list x) | 123 | (define (ensure-nested-list x) |
| 122 | (if (list? (car x)) | 124 | (if (list? (car x)) |
| 123 | x | 125 | x |
| @@ -125,7 +127,8 @@ FLAT FUCK FORMAT : Specification | |||
| 125 | 127 | ||
| 126 | (define (atom? x) | 128 | (define (atom? x) |
| 127 | (and (not (null? x)) | 129 | (and (not (null? x)) |
| 128 | (not (pair? x)))) | 130 | (not (pair? x)) |
| 131 | (not (vector? x)))) | ||
| 129 | 132 | ||
| 130 | (define (car-safe x) | 133 | (define (car-safe x) |
| 131 | (if (pair? x) | 134 | (if (pair? x) |