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

Sam and I did some work to allow automatic inferred linking in

Browse Source 
(define-values/)invoke-unit/infer.

svn: r14315

original commit: 99aac7d745
This commit is contained in:
Stevie Strickland 2009-03-27 13:47:12 +00:00
parent 303b647cc3
commit 0500950bc1
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/net/mime.ss
View File

@ -30,21 +30,17 @@
(require scheme/unit
"mime-sig.ss"
"mime-unit.ss"
"qp-sig.ss"
"qp.ss"
"base64-sig.ss"
"base64.ss"
"head-sig.ss"
"head.ss")
(define-unit-from-context base64@ base64^)
(define-unit-from-context qp@ qp^)
(define-unit-from-context head@ head^)
;(define-unit-from-context base64@ base64^)
;(define-unit-from-context qp@ qp^)
;(define-unit-from-context head@ head^)
(define-compound-unit/infer mime@2 (import) (export mime^)
(link base64@ qp@ head@ mime@))
(define-values/invoke-unit/infer mime@2)
(define-values/invoke-unit/infer
(export mime^)
(link mime@))
(provide-signature-elements mime^)