don't go up past the collection with relative requires

This commit is contained in:
Robby Findler 2010-12-12 16:24:18 -06:00
parent 8101c03d30
commit db116cd14b

View File

@ -17,8 +17,8 @@
(send f show #t) (send f show #t)
|# |#
(require "../image.ss" (require 2htdp/image
(only-in "../../mrlib/image-core.ss" (only-in mrlib/image-core
image% image%
make-image make-image
image-shape image-shape
@ -39,11 +39,10 @@
to-img to-img
render-normalized render-normalized
render-image) render-image)
(only-in "../private/image-more.ss" (only-in "../private/image-more.rkt"
bring-between bring-between
swizzle) swizzle)
; "../private/img-err.ss" mrlib/private/image-core-bitmap
"../../mrlib/private/image-core-bitmap.ss"
lang/posn lang/posn
racket/math racket/math
racket/class racket/class