From 5c881e6487ec7b31804c846ab03c6baeb500d38d Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Tue, 6 Mar 2012 14:04:19 -0500 Subject: [PATCH] fixing the example --- tests/clipart-test/clipart.rkt | 4 ++-- tests/more-tests/js-binding.rkt | 13 +++++++++---- 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/tests/clipart-test/clipart.rkt b/tests/clipart-test/clipart.rkt index 5056c8e..0172991 100644 --- a/tests/clipart-test/clipart.rkt +++ b/tests/clipart-test/clipart.rkt @@ -1,4 +1,4 @@ -#lang planet dyoo/whalesong +#lang planet dyoo/whalesong/base (require (planet dyoo/whalesong/image) (planet dyoo/whalesong/resource)) @@ -110,7 +110,7 @@ (define BG (rectangle 300 100 "solid" "green")) (define-resource dog.jpg) ;; "http://t3.gstatic.com/images?q=tbn:ANd9GcSiCx-eVMoU6wpH2WgfNzOTd_wZunA-S07ZZJsGtHiKNfOUp2chMKmvEVajtg") -(define DOG (scale 1/2 dog.jpg)) +(define DOG dog.jpg) ;(define XDOG (time "(transparent-from-corners DOG 30)" (lambda () (transparent-from-corners DOG 30)))) ;(define D (overlay XDOG BG)) ;(define CDOG (overlay (clipart/url DOGURL) BG)) diff --git a/tests/more-tests/js-binding.rkt b/tests/more-tests/js-binding.rkt index 0c02f40..6289580 100644 --- a/tests/more-tests/js-binding.rkt +++ b/tests/more-tests/js-binding.rkt @@ -7,18 +7,23 @@ (define js-minus (js-function->procedure "function(x, y) { return x - y; }")) -(define sleep - (js-async-function->procedure"function(success, fail, n) { setTimeout(success, n) }")) +(define raw-sleep + (js-async-function->procedure + "function(success, fail, n) { setTimeout(success, n); }")) +(define (sleep n) + (unless (real? n) + (raise-type-error 'sleep "real" n)) + (void (raw-sleep (inexact->exact (floor (* n 1000)))))) "plus: " (js-plus 3 4) -"wait for one second: " (sleep 1000) +"wait for one second: " (sleep 1) "minus:" (js-minus 239748 23) (for-each (lambda (x) (display x) - (sleep 1000)) + (sleep 1)) '(hello world testing))