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

cs: fix error reporting for struct selectors

Browse Source 
Fix error reporting for non-inlined struct selectors to use Racket
style instead of Chez Scheme style.

Closes #2926
This commit is contained in:
Matthew Flatt 2019-11-23 15:39:27 -05:00
parent 7eb1ef9250
commit d1bfa6a203
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
racket/src/cs/rumble/struct.ss
View File

@ -664,9 +664,9 @@
(procedure-rename
(lambda (v)
($value
(if (impersonator? v)
(impersonate-ref p rtd pos v rec-name (or name 'field))
(p v))))
(if (record? v rtd)
(p v)
(impersonate-ref p rtd pos v rec-name (or name 'field)))))
(string->symbol (string-append (symbol->string rec-name)
"-"
(if name
@ -702,9 +702,9 @@
(procedure-rename
(if (struct-type-field-mutable? rtd pos)
(lambda (v a)
(if (impersonator? v)
(impersonate-set! p rtd pos abs-pos v a rec-name (or name 'field))
(p v a)))
(if (record? v rtd)
(p v a)
(impersonate-set! p rtd pos abs-pos v a rec-name (or name 'field))))
(lambda (v a)
(raise-arguments-error name
"cannot modify value of immutable field in structure"