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) |