ba8684cb63
student languages. This will be a problem if somebody writes a function in BSL or BSLLA, provides it, requires it in a non-student language, and uses it as an argument to a higher-order function that isn't declared as a "higher order primitive". That is, not very often. Even if so, just re-open the BSL or BSLLA source file, switch languages to ISL, save it, and the problem goes away.
22 lines
893 B
Racket
22 lines
893 B
Racket
#lang racket/base
|
|
(require 2htdp/universe
|
|
(only-in htdp/error check-arg)
|
|
picturing-programs/private/tiles
|
|
picturing-programs/private/io-stuff
|
|
picturing-programs/private/map-image
|
|
picturing-programs/private/book-pictures)
|
|
|
|
(provide (all-from-out picturing-programs/private/tiles) ; includes all-from-out 2htdp/image, plus a few simple add-ons
|
|
(all-from-out picturing-programs/private/io-stuff) ; includes with-{input-from,output-to}-{string,file}, with-io-strings
|
|
(all-from-out picturing-programs/private/map-image)
|
|
; includes (map,build)(3,4,)-image, real->int, name->color, colorize, get-pixel-color
|
|
(all-from-out picturing-programs/private/book-pictures) ; pic:calendar, pic:hacker, etc.
|
|
(all-from-out 2htdp/universe)
|
|
show-it)
|
|
|
|
(provide provide)
|
|
|
|
(define (show-it img)
|
|
(check-arg 'show-it (image? img) "image" "first" img)
|
|
img)
|