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

slight improvement to the snipclass-not-found error message

Browse Source 
svn: r16300
This commit is contained in:
Robby Findler 2009-10-12 19:55:43 +00:00
parent 2510c30556
commit ab894fbe18
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/mred/private/wxme/snip.ss
View File

@ -1319,13 +1319,21 @@
(begin
(when (snip-class-link-name s)
(let ([c (find (snip-class-link-name s))])
(when (or (not c)
((send c get-version) . < . (snip-class-link-reading-version s)))
;; unknown class/version;
;; since we #f out sl->name, error is only shown once
(log-error (format "unknown snip class: ~e or version: ~e"
(snip-class-link-name s)
(snip-class-link-reading-version s))))
(cond
[(not c)
(log-error (format "unknown snip class: ~e (version: ~e)"
(snip-class-link-name s)
(snip-class-link-reading-version s)))]
[((send c get-version) . < . (snip-class-link-reading-version s))
;; unknown class/version;
;; since we #f out sl->name, error is only shown once
(log-error (format "unknown snip class: ~e; found version: ~e, need at least version ~e"
(snip-class-link-name s)
(send c get-version)
(snip-class-link-reading-version s)))]
[else
;; no prolems
(void)])
(set-snip-class-link-name! s #f)
(set-snip-class-link-c! s c)))
(snip-class-link-c s))))