summaryrefslogtreecommitdiffstats
path: root/cpp/sca/test/store-script
diff options
context:
space:
mode:
authorjsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68>2009-10-03 21:50:47 +0000
committerjsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68>2009-10-03 21:50:47 +0000
commit980d94493097ba3f93d1f4390fe90fca24b68444 (patch)
treec21726066ff8b39b891ffaaec89595adeeec6db7 /cpp/sca/test/store-script
parent9d50a5f28dea714aca1e0941db4a2f87d40eb99c (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.scm16
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))