diff options
Diffstat (limited to '')
| -rw-r--r-- | sca-cpp/trunk/test/store-script/fruits-catalog.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/sca-cpp/trunk/test/store-script/fruits-catalog.scm b/sca-cpp/trunk/test/store-script/fruits-catalog.scm index 390068d71a..18128f0137 100644 --- a/sca-cpp/trunk/test/store-script/fruits-catalog.scm +++ b/sca-cpp/trunk/test/store-script/fruits-catalog.scm @@ -1,12 +1,9 @@ ; Catalog implementation (define (get converter) - (display "catalog") (define (convert price) (converter "convert" "USD" "USD" price)) - (define code "USD") (define symbol (converter "symbol" code)) - (list (list (list 'javaClass "services.Item") (list 'name "Apple") (list 'currencyCode code) (list 'currencySymbol symbol) (list 'price (convert 2.99))) (list (list 'javaClass "services.Item") (list 'name "Orange") (list 'currencyCode code) (list 'currencySymbol symbol) (list 'price (convert 3.55))) @@ -17,3 +14,4 @@ ; TODO remove these JSON-RPC specific functions (define (system.listMethods converter) (list "Service.get")) (define Service.get get) + |