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

Rackety (102 columns)

Browse Source
This commit is contained in:
Robby Findler 2014-05-13 15:22:11 -05:00
parent 0358d7079b
commit 951a6f051b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/htdp-pkgs/htdp-lib/2htdp/private/img-err.rkt
View File

@ -229,7 +229,9 @@
(check-arg fn-name (or (not arg) (string? arg)) 'face i arg) (check-arg fn-name (or (not arg) (string? arg)) 'face i arg)
arg] arg]
[(family) [(family)
(check-arg fn-name (memq arg '(default decorative roman script swiss modern symbol system)) 'family i arg) (check-arg fn-name
(memq arg '(default decorative roman script swiss modern symbol system))
'family i arg)
arg] arg]
[(style) [(style)
(check-arg fn-name (memq arg '(normal italic slant)) 'style i arg) (check-arg fn-name (memq arg '(normal italic slant)) 'style i arg)