From 9d6f8511c8e3fb8a7efa82291422b909bfcbd0f9 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Sat, 1 Dec 2007 01:46:58 -0500 Subject: [PATCH] Fixes bug 173169: Mutator names on define-record-type are wrong --- scheme/last-revision | 2 +- scheme/psyntax.expander.ss | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/last-revision b/scheme/last-revision index 17edc7a..5fcff9f 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1155 +1156 diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss index 0ae025c..e9cc700 100644 --- 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) [() '()]