suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

renaming k argument, since it's not really a continuation

Browse Source
This commit is contained in:
Danny Yoo 2011-08-09 15:44:29 -04:00
parent 5cb2bef63a
commit 8f4172ea96
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
expand-out-images.rkt
View File

@ -149,7 +149,7 @@
expr])) expr]))
(define (on-datum datum-stx k) (define (on-datum datum-stx on-regular-datum)
(define-values (image? convert) (define-values (image? convert)
(values (values
(dynamic-require '2htdp/image 'image?) (dynamic-require '2htdp/image 'image?)
@ -173,7 +173,7 @@
(#,(my-image-url) image-uri)))] (#,(my-image-url) image-uri)))]
[else [else
(k datum-stx)])) (on-regular-datum datum-stx)]))