vectors

2022-04-18 21:05:15 +02:00 · 2022-04-18 21:05:15 +02:00 · 89ba2d6aef
commit 89ba2d6aef
parent 52afd529eb
1 changed files with 1 additions and 1 deletions
--- 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)))