minor changes so that things run in drdr

svn: r17544

collects/2htdp/tests/mp.ss

@@ -2,6 +2,7 @@
 ;; about the language level of this file in a form that our tools can easily process.
 #reader(lib "htdp-beginner-reader.ss" "lang")((modname mp) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
 (require 2htdp/universe)
+(require htdp/image)
 
 ;; WorldState = Image 
 

collects/2htdp/tests/stop.ss

@@ -1,8 +1,8 @@
 ;; The first three lines of this file were inserted by DrScheme. They record metadata
 ;; about the language level of this file in a form that our tools can easily process.
-#reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname test-stop) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
-
+#reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname stop) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
 (require 2htdp/universe)
+(require htdp/image)
 
 ;; on RETURN stop
 

collects/2htdp/tests/test-image.ss

@@ -994,19 +994,19 @@
 (check-equal? (bmbytes-ref/safe checker3x3 3 3 1 19) (list->bytes '(  0 0 255 0)))
 
 
-#;
+
 (check-equal? (bytes->list (interpolate checker2x2 2 2 1 0))
               '(255 0 255 0))
-#;
+
 (check-equal? (bytes->list (interpolate checker3x3 3 3 0 0))
               '(255 0 0 255))
-#;
+
 (check-equal? (bytes->list (interpolate checker3x3 3 3 0 1))
               '(255 0 255 0))
-#;
+
 (check-equal? (bytes->list (interpolate checker3x3 3 3 0 2))
               '(255 0 0 255))
-#;
+
 (check-equal? (bytes->list (interpolate checker3x3 3 3 0.5 0))
               '(255 0 128 128))
 

collects/2htdp/tests/ufo-rename.ss

@@ -1,5 +1,6 @@
 #lang scheme
-(require (prefix-in uni: 2htdp/universe))
+(require (prefix-in uni: 2htdp/universe)
+         (prefix-in uni: htdp/image))
 
 (define (create-UFO-scene height)
   (uni:place-image UFO 50 height (uni:empty-scene 100 100)))