original commit: b87c3b50e6c01727564d1991cb1d7d98cd603a6b
This commit is contained in:
Matthew Flatt 2003-02-12 03:54:29 +00:00
parent 6b2e35c1d7
commit 649f6b39df

View File

@ -348,7 +348,6 @@
[contract-id (mangle-id "provide/contract-contract-id" id)]
[pos-module-source (mangle-id "provide/contract-pos-module-source" id)]
[pos-stx (datum->syntax-object provide-stx 'here)]
[module-source-as-symbol (datum->syntax-object provide-stx 'module-source-as-symbol)]
[id id]
[ctrct ctrct])
(syntax/loc stx
@ -409,7 +408,6 @@
(with-syntax ([(bodies ...) (code-for-each-clause (syntax->list (syntax (p/c-ele ...))))])
(syntax
(begin
(require (lib "contract-helpers.scm" "mzlib" "private"))
bodies ...))))]))