whiteline/Scripts
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vectors

Browse Source
This commit is contained in:
Victor Fors 2022-04-18 21:05:15 +02:00
parent 52afd529eb
commit 89ba2d6aef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
parking.scm
View File

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