about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-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)