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

add an error check

Browse Source 
related to PR 13346
This commit is contained in:
Robby Findler 2013-05-01 16:42:45 -05:00
parent 27503c3ae9
commit 79e10348b3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/texpict/private/common-unit.rkt
View File

@ -628,6 +628,8 @@
(let ([make-superimpose (let ([make-superimpose
(lambda (get-h get-v get-th name) (lambda (get-h get-v get-th name)
(lambda boxes (lambda boxes
(when (null? boxes)
(error name "expected at least one argument, got none"))
(unless (andmap pict? boxes) (unless (andmap pict? boxes)
(error name "expected all picts as arguments, got ~a" (error name "expected all picts as arguments, got ~a"
(apply string-append (add-between (map (λ (x) (format "~e" x)) boxes) " ")))) (apply string-append (add-between (map (λ (x) (format "~e" x)) boxes) " "))))