diff options
author | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2009-10-03 21:50:47 +0000 |
---|---|---|
committer | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2009-10-03 21:50:47 +0000 |
commit | 980d94493097ba3f93d1f4390fe90fca24b68444 (patch) | |
tree | c21726066ff8b39b891ffaaec89595adeeec6db7 /cpp/sca/test/store-script | |
parent | 9d50a5f28dea714aca1e0941db4a2f87d40eb99c (diff) |
Added minimal support for comments. Removed build output from version control.
git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@821428 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'cpp/sca/test/store-script')
-rw-r--r-- | cpp/sca/test/store-script/store-script.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/cpp/sca/test/store-script/store-script.scm b/cpp/sca/test/store-script/store-script.scm index 8af88b45f0..aa4ea962f2 100644 --- a/cpp/sca/test/store-script/store-script.scm +++ b/cpp/sca/test/store-script/store-script.scm @@ -1,5 +1,5 @@ -(display "Currency implementation") +(; "Currency implementation") (define (currency_convert from to amount) (if (equal? to "EUR") (* amount 0.70) amount) @@ -16,11 +16,11 @@ ) ) -(display "Currency composite") +(; "Currency composite") (define (currency_service op . args) (currency_impl op args)) -(display "Catalog implementation") +(; "Catalog implementation") (define (catalog_get converter) (define (convert price) (converter "convert" "USD" "USD" price)) @@ -40,11 +40,11 @@ ) ) -(display "Catalog composite") +(; "Catalog composite") (define (catalog_service op . args) (catalog_impl currency_service op args)) -(display "Cart implementation") +(; "Cart implementation") (define (cart_post content item) (cons item content) @@ -61,7 +61,7 @@ ) ) -(display "Store UI implementation") +(; "Store UI implementation") (define (storeui_post cart content item) (cart "post" content item) @@ -83,13 +83,13 @@ ) ) -(display "Store UI composite") +(; "Store UI composite") (define (cart_service op . args) (cart_impl op args)) (define (storeui_service op . args) (storeui_impl cart_service catalog_service op args)) -(display "Store UI test case") +(; "Store UI test case") (define catalog (storeui_service "getcatalog")) (define empty (list)) |