Fixed small syntax error
This commit is contained in:
parent
4c14838f7e
commit
221c3ddc04
|
@ -40,7 +40,7 @@
|
|||
(define (format-pizza pizzas-list)
|
||||
(let ((str "")
|
||||
(price 0)
|
||||
(all-pizzas-list (hash-ref (get-pizzas-list) 'pizzas)))
|
||||
(all-pizzas-list (hash-ref (get-all-pizzas) 'pizzas)))
|
||||
(for-each (lambda (pizza-hashmap)
|
||||
(set! str (string-append str (format "~a : ~s\n" (hash-ref pizza-hashmap 'quantity) (hash-ref pizza-hashmap 'name))))
|
||||
(set! price (+ price (get-price-from-pizza pizza-hashmap all-pizzas-list))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user