diff options
| author | Case Duckworth | 2023-03-21 09:46:13 -0500 |
|---|---|---|
| committer | Case Duckworth | 2023-03-21 09:46:13 -0500 |
| commit | 034ed781d1ff6897f6ea6c2fc7f387e119d80b92 (patch) | |
| tree | 32b339c96b755614e1475cfb8e8bbfe2b484c47b | |
| parent | Change parsing to require fewer newlines (diff) | |
| download | fff-034ed781d1ff6897f6ea6c2fc7f387e119d80b92.tar.gz fff-034ed781d1ff6897f6ea6c2fc7f387e119d80b92.zip | |
Include a vector as an atom
This... I'm probably doing this a dumb way. I.e., I should rename `atom?`
| -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) |