From 8c5172b8ab407b79db53ce46271d72d8a3f9c19f Mon Sep 17 00:00:00 2001 From: jsdelfino Date: Sat, 30 Jan 2010 08:06:07 +0000 Subject: Correctly pass property values to component implementations. git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@904734 13f79535-47bb-0310-9956-ffa450edef68 --- sca-cpp/trunk/test/store-scheme/fruits-catalog.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'sca-cpp/trunk/test/store-scheme/fruits-catalog.scm') 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")) -- cgit v1.2.3