diff options
author | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2010-01-30 08:06:07 +0000 |
---|---|---|
committer | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2010-01-30 08:06:07 +0000 |
commit | 8c5172b8ab407b79db53ce46271d72d8a3f9c19f (patch) | |
tree | 7ba77e7709aa09aca0b486dfe7cbba3270950762 /sca-cpp/trunk/test/store-scheme/fruits-catalog.scm | |
parent | c06d7a38b904247917462c3c1a780f95c68e0709 (diff) |
Correctly pass property values to component implementations.
git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@904734 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to '')
-rw-r--r-- | sca-cpp/trunk/test/store-scheme/fruits-catalog.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/sca-cpp/trunk/test/store-scheme/fruits-catalog.scm b/sca-cpp/trunk/test/store-scheme/fruits-catalog.scm index 173bcbe9c0..f299e14650 100644 --- a/sca-cpp/trunk/test/store-scheme/fruits-catalog.scm +++ b/sca-cpp/trunk/test/store-scheme/fruits-catalog.scm @@ -1,8 +1,8 @@ ; Catalog implementation -(define (get converter) - (define (convert price) (converter "convert" "USD" "USD" price)) - (define code "USD") +(define (get converter currencyCode) + (define code (currencyCode)) + (define (convert price) (converter "convert" "USD" code price)) (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))) @@ -12,5 +12,5 @@ ) ; TODO remove these JSON-RPC specific functions -(define (listMethods converter) (list "Service.get")) +(define (listMethods converter currencyCode) (list "Service.get")) |