Bladeren bron

vectors

master
Victor Fors 2 jaren geleden
bovenliggende
commit
89ba2d6aef
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  1. +1
    -1
      parking.scm

+ 1
- 1
parking.scm Bestand weergeven

@@ -61,7 +61,7 @@
(has-key? 'ParkingSpacesAvailable lot)) (has-key? 'ParkingSpacesAvailable lot))


(define (only-has-handicap-spots? lot) (define (only-has-handicap-spots? lot)
(equal? '(4) (vector->list (value 'ParkingTypes lot))))
(equal? #(4) (value 'ParkingTypes lot)))


(define (electric-car-lot? lot) (define (electric-car-lot? lot)
(member? 3 (value 'ParkingTypes lot))) (member? 3 (value 'ParkingTypes lot)))


Laden…
Annuleren
Opslaan