suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

more error-message conversions and repairs

Browse Source 
original commit: a137459b65b54d65595e854101aae7440d9e65f6
This commit is contained in:
Matthew Flatt 2012-05-27 11:29:21 -06:00
parent 625ee5db99
commit b5f09c0d39
3 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/base.rkt
View File

@ -60,7 +60,7 @@
[(string? s) (make-style s null)]
[(symbol? s) (make-style #f (list s))]
[(and (list? s) (andmap symbol? s)) (make-style #f s)]
[else (raise-type-error who "style, string, symbol, list of symbols, or #f" s)]))
[else (raise-argument-error who "(or/c style? string? symbol? (listof symbol?) #f)" s)]))
(define (title #:tag [tag #f] #:tag-prefix [prefix #f] #:style [style plain]
#:version [version #f] #:date [date #f]

12
collects/scribble/eval.rkt
View File

@ -178,19 +178,19 @@
(define (make-eval-results contents out err)
(unless (and (list? contents)
(andmap content? contents))
(raise-type-error 'eval:results "list of content" contents))
(raise-argument-error 'eval:results "(listof content?)" contents))
(unless (string? out)
(raise-type-error 'eval:results "string" out))
(raise-argument-error 'eval:results "string?" out))
(unless (string? err)
(raise-type-error 'eval:results "string" err))
(raise-argument-error 'eval:results "string?" err))
(eval-results contents out err))
(define (make-eval-result content out err)
(unless (content? content)
(raise-type-error 'eval:result "content" content))
(raise-argument-error 'eval:result "content?" content))
(unless (string? out)
(raise-type-error 'eval:result "string" out))
(raise-argument-error 'eval:result "string?" out))
(unless (string? err)
(raise-type-error 'eval:result "string" err))
(raise-argument-error 'eval:result "string?" err))
(eval-results (list content) out err))
(define (extract-to-evaluate s)

16
collects/scribble/xref.rkt
View File

@ -106,12 +106,16 @@
[(module-path? src)
(loop (module-path-index-join src #f))]
[else
(raise-type-error 'xref-binding-definition->tag
"list starting with module path or module path index"
src)]))]
[else (raise-type-error 'xref-binding-definition->tag
"identifier, 2-element list, or 7-element list"
id/binding)]))]))
(raise-argument-error 'xref-binding-definition->tag
"(list/c (or/c module-path? module-path-index?) any/c)"
src)]))]
[else (raise-argument-error 'xref-binding-definition->tag
(string-append
"(or/c identifier? (lambda (l)\n"
" (and (list? l)\n"
" (or (= (length l) 2)\n"
" (= (length l) 7)))))")
id/binding)]))]))
(define (xref-binding->definition-tag xrefs id/binding mode)
(let-values ([(tag form?) (xref-binding-tag xrefs id/binding mode)])