about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2023-03-21 09:46:13 -0500
committerCase Duckworth2023-03-21 09:46:13 -0500
commit034ed781d1ff6897f6ea6c2fc7f387e119d80b92 (patch)
tree32b339c96b755614e1475cfb8e8bbfe2b484c47b
parentChange parsing to require fewer newlines (diff)
downloadfff-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-xfff.scm5
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)