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

This shouldn't have been left in.

Browse Source 
svn: r10966
This commit is contained in:
Stevie Strickland 2008-07-29 16:58:21 +00:00
parent 3379ec96b6
commit 2d9a48a11d
1 changed files with 49 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/typed-scheme/typed-scheme.ss
View File

@ -39,10 +39,6 @@
(define-syntax (module-begin stx) (define-syntax (module-begin stx)
(define module-name (syntax-property stx 'enclosing-module-name)) (define module-name (syntax-property stx 'enclosing-module-name))
;(printf "BEGIN: ~a~n" (syntax->datum stx)) ;(printf "BEGIN: ~a~n" (syntax->datum stx))
(with-logging-to-file
"/tmp/ts-poly.log"
#;
(log-file-name (syntax-source stx) module-name)
(syntax-case stx () (syntax-case stx ()
[(mb forms ...) [(mb forms ...)
(nest (nest
@ -91,7 +87,7 @@
#;(printf "tried to create ~a types~n" (all-count!)) #;(printf "tried to create ~a types~n" (all-count!))
#;(printf "created ~a union types~n" (union-count!)) #;(printf "created ~a union types~n" (union-count!))
;; reconstruct the module with the extra code ;; reconstruct the module with the extra code
#'(#%module-begin transformed-body ... after-code check-syntax-help))]))) #'(#%module-begin transformed-body ... after-code check-syntax-help))]))
(define-syntax (top-interaction stx) (define-syntax (top-interaction stx)
(syntax-case stx () (syntax-case stx ()