fixing the example

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))

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))