suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

begin0 is a module-level expression

Browse Source 
svn: r3244
This commit is contained in:
Matthew Flatt 2006-06-06 04:01:40 +00:00
parent e4b1be1140
commit b4af10dc2e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/lang/private/contracts/contracts-module-begin.ss
View File

@ -123,7 +123,7 @@
(define local-expand-stop-list
(list 'contract 'define-values 'define-syntaxes 'require 'require-for-syntax
'provide 'define-data '#%app '#%datum 'define-struct 'begin))
'provide 'define-data '#%app '#%datum 'define-struct 'begin 'begin0))
;; parse-contract-expressions
;; takes in a list of top level expressions and a list of contracts, and outputs the correct transformation.