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

2007-12-01 01:46:58 -05:00 · 2007-12-01 01:46:58 -05:00 · 9d6f8511c8
parent d85466ab75
commit 9d6f8511c8
2 changed files with 3 additions and 3 deletions
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1155
+1156
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@ -1626,11 +1626,11 @@
        (define (gen-name x) 
          (datum->syntax foo
            (string->symbol 
-              (string-append "set-" 
+              (string-append
                (symbol->string (syntax->datum foo))
                "-"
                (symbol->string (syntax->datum x))
-                "!"))))
+                "-set!"))))
        (let f ([fields fields])
          (syntax-match fields (mutable)
            [() '()]