diff --git a/expand-out-images.rkt b/expand-out-images.rkt index a9eb7b2..2ce1e29 100644 --- a/expand-out-images.rkt +++ b/expand-out-images.rkt @@ -149,7 +149,7 @@ expr])) -(define (on-datum datum-stx k) +(define (on-datum datum-stx on-regular-datum) (define-values (image? convert) (values (dynamic-require '2htdp/image 'image?) @@ -173,7 +173,7 @@ (#,(my-image-url) image-uri)))] [else - (k datum-stx)])) + (on-regular-datum datum-stx)]))