blob: 7f58335951542cd7b65d8b4a684529f4be998f38 (
plain)
1
2
3
4
5
6
7
8
9
|
; Currency converter implementation
(define (convert from to amount)
(if (equal? to "EUR") (* amount 0.70) amount)
)
(define (symbol currency)
(if (equal? currency "EUR") "E" "$")
)
|