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

cleaned up a little bit, here and there

Browse Source 
svn: r15675
This commit is contained in:
Robby Findler 2009-08-05 19:44:06 +00:00
parent 0d4ef1fc9f
commit 0646de8473
3 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/2htdp/private/check-aux.ss
View File

@ -185,12 +185,6 @@
(define (image-pins i)
(format "image with pinhole at (~s,~s)" (pinhole-x i) (pinhole-y i)))
;; Symbol Any String -> Void
(define (check-color tag width rank)
(check-arg tag (or (symbol? width) (string? width))
"color symbol or string" rank width))
;; Symbol (union Symbol String) Nat -> Void
(define (check-mode tag s rank)
(check-arg tag (or (eq? s 'solid)

5
collects/2htdp/private/syn-aux.ss
View File

@ -1,9 +1,8 @@
#lang scheme
(provide define-keywords function-with-arity except err check-flat-spec
(all-from-out "syn-aux-aux.ss"))
(provide define-keywords function-with-arity except err check-flat-spec)
(require "syn-aux-aux.ss"
(require
(for-template "syn-aux-aux.ss"
scheme
(rename-in lang/prim (first-order->higher-order f2h))))

4
collects/htdp/world.ss
View File

@ -186,7 +186,7 @@ Matthew
(check-size/0 'nw:rectangle width "first")
(check-size/0 'nw:rectangle height "second")
(check-mode 'rectangle mode "third")
(check-color 'rectangle color "fourth")
(check-sym/string-color 'rectangle color "fourth")
(put-pinhole (rectangle width height mode color) 0 0))
(define (place-image image x y scene)
@ -411,7 +411,7 @@ Matthew
(define (scene? i) (and (= 0 (pinhole-x i)) (= 0 (pinhole-y i))))
;; Symbol Any String -> Void
(define (check-color tag width rank)
(define (check-sym/string-color tag width rank)
(check-arg tag (or (symbol? width) (string? width))
"color symbol or string" rank width))