conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixes bug 173169: Mutator names on define-record-type are wrong

This commit is contained in:
Abdulaziz Ghuloum 2007-12-01 01:46:58 -05:00
parent d85466ab75
commit 9d6f8511c8
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1155 1156

4
scheme/psyntax.expander.ss
View File

@ -1626,11 +1626,11 @@
(define (gen-name x) (define (gen-name x)
(datum->syntax foo (datum->syntax foo
(string->symbol (string->symbol
(string-append "set-" (string-append
(symbol->string (syntax->datum foo)) (symbol->string (syntax->datum foo))
"-" "-"
(symbol->string (syntax->datum x)) (symbol->string (syntax->datum x))
"!")))) "-set!"))))
(let f ([fields fields]) (let f ([fields fields])
(syntax-match fields (mutable) (syntax-match fields (mutable)
[() '()] [() '()]