refactor

parking.scm

@@ -61,8 +61,8 @@
   (with-input-from-file "key-parking" read-line))
 
 (define (get-parking-lots)
-  (let ((result (simple-json-request (string-append "http://parkering.linkoping.se/Parkeringsdata/ParkeringsdataV1.svc/GetParkeringsYtaList/" parking-key "/0"))))
-    (value 'parkingareanewlist result)))
+  (value 'parkingareanewlist
+         (simple-json-request (string-append "http://parkering.linkoping.se/Parkeringsdata/ParkeringsdataV1.svc/GetParkeringsYtaList/" parking-key "/0"))))
 
 (define (computerized? lot)
   (has-key? 'parkingspacesavailable lot))