From 88facb8ca0117baafb19ce736354702c5ad47b08 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 23 Sep 2002 21:32:41 +0000 Subject: [PATCH] .. original commit: 5ee5d4809e196f0fb6ac64a5f24be91acc12959f --- collects/mzlib/contracts.ss | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/contracts.ss b/collects/mzlib/contracts.ss index 98d2921..e95bcf9 100644 --- a/collects/mzlib/contracts.ss +++ b/collects/mzlib/contracts.ss @@ -28,8 +28,18 @@ [(_ name contract-expr expr) (identifier? (syntax name)) (with-syntax ([pos-blame-stx (datum->syntax-object define-stx 'here)] - [contract-id (datum->syntax-object define-stx 'ACK-define/contract-contract-id)] - [id (datum->syntax-object define-stx 'ACK-define/contract-id)]) + [contract-id (datum->syntax-object + define-stx + (string->symbol + (format + "ACK-define/contract-contract-id-~a" + (syntax-object->datum (syntax name)))))] + [id (datum->syntax-object + define-stx + (string->symbol + (format + "ACK-define/contract-id-~a" + (syntax-object->datum (syntax name)))))]) (syntax (begin (define contract-id contract-expr)