vectors

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