From 89ba2d6aef985fa200b8677e21250c4fed197b94 Mon Sep 17 00:00:00 2001
From: Victor Fors <krakow89@gmail.com>
Date: Mon, 18 Apr 2022 21:05:15 +0200
Subject: [PATCH] vectors

---
 parking.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/parking.scm b/parking.scm
index b3fcdf1..becdd81 100644
--- a/parking.scm
+++ b/parking.scm
@@ -61,7 +61,7 @@
   (has-key? 'ParkingSpacesAvailable lot))
 
 (define (only-has-handicap-spots? lot)
-  (equal? '(4) (vector->list (value 'ParkingTypes lot))))
+  (equal? #(4) (value 'ParkingTypes lot)))
 
 (define (electric-car-lot? lot)
   (member? 3 (value 'ParkingTypes lot)))