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

cs: fix some error-message formatting

Browse Source 
Some Chez Scheme error messages were not converted correctly,
leaving the values to be printed by Chez Scheme's printer.
This commit is contained in:
Matthew Flatt 2021-03-23 16:41:30 -06:00
parent f65560ed4c
commit cd2d5f0ac7
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
racket/src/cs/rumble/error-rewrite.ss
View File

@ -100,18 +100,18 @@
irritants))] irritants))]
[(and (or (eq? who 'list-ref) (eq? who 'list-tail)) [(and (or (eq? who 'list-ref) (eq? who 'list-tail))
(equal? str "index ~s is out of range for list ~s")) (equal? str "index ~s is out of range for list ~s"))
(values (string-append "index too large for list\n" (format-error-values (string-append "index too large for list\n"
" index: ~s\n" " index: ~s\n"
" in: ~s") " in: ~s")
irritants)] irritants)]
[(and (or (eq? who 'list-ref) (eq? who 'list-tail)) [(and (or (eq? who 'list-ref) (eq? who 'list-tail))
(equal? str "index ~s reaches a non-pair in ~s")) (equal? str "index ~s reaches a non-pair in ~s"))
(values (string-append "index reaches a non-pair\n" (format-error-values (string-append "index reaches a non-pair\n"
" index: ~s\n" " index: ~s\n"
" in: ~s") " in: ~s")
irritants)] irritants)]
[(or (eq? who 'memq) (eq? who 'memv)) [(or (eq? who 'memq) (eq? who 'memv))
(values "not a proper list\n in: ~s" irritants)] (format-error-values "not a proper list\n in: ~s" irritants)]
[(equal? str "~s is not a valid index for ~s") [(equal? str "~s is not a valid index for ~s")
(cond (cond
[(exact-nonnegative-integer? (car irritants)) [(exact-nonnegative-integer? (car irritants))