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

Corrections to error message bugs

Browse Source 
svn: r7000
This commit is contained in:
Kathy Gray 2007-08-02 14:52:19 +00:00
parent 6479c5483d
commit f034fbe959
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/profj/check.ss
View File

@ -3148,8 +3148,8 @@
(case kind (case kind
((method) ((method)
(string-append (string-append
(format "This method call uses an unfound method ~a, which is similar to a reserved word~n" (format "No method ~a for this call can be found. ~a resembles a reserved word.~n"
n) n n)
"Perhaps it is miscapitalized or misspelled")) "Perhaps it is miscapitalized or misspelled"))
((field) ((field)
(string-append (string-append
@ -3171,7 +3171,7 @@
(define (beginner-method-access-error name src) (define (beginner-method-access-error name src)
(let ((n (id->ext-name name))) (let ((n (id->ext-name name)))
(raise-error n (raise-error n
(format "Method ~a from the current class must be called on 'this'" n) (format "A call to method ~a requires a target object, such as 'this'." n)
n src))) n src)))

1
collects/profj/parsers/advanced-parser.ss
View File

@ -537,6 +537,7 @@
(StatementExpressionList (StatementExpressionList
[(StatementExpression) (list $1)] [(StatementExpression) (list $1)]
[(Assignment) (list $1)]
[(StatementExpressionList COMMA StatementExpression) (cons $3 $1)]) [(StatementExpressionList COMMA StatementExpression) (cons $3 $1)])
(BreakStatement (BreakStatement