From 034ed781d1ff6897f6ea6c2fc7f387e119d80b92 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 21 Mar 2023 09:46:13 -0500
Subject: Include a vector as an atom

This... I'm probably doing this a dumb way.  I.e., I should rename `atom?`
---
 fff.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'fff.scm')

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
 (define-peg-pattern AT none "@")
 
 
+;;; Utility functions
+
 (define (ensure-nested-list x)
   (if (list? (car x))
       x
@@ -125,7 +127,8 @@ FLAT FUCK FORMAT : Specification
 
 (define (atom? x)
   (and (not (null? x))
-       (not (pair? x))))
+       (not (pair? x))
+       (not (vector? x))))
 
 (define (car-safe x)
   (if (pair? x)
-- 
cgit 1.4.1-21-gabe81