From 980d94493097ba3f93d1f4390fe90fca24b68444 Mon Sep 17 00:00:00 2001 From: jsdelfino Date: Sat, 3 Oct 2009 21:50:47 +0000 Subject: 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 --- cpp/sca/test/store-script/store-script.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'cpp/sca/test/store-script') 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)) -- cgit v1.2.3