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

fixed the contract for create-embedding-executable (and changed the file to the racket/base language)

Browse Source
This commit is contained in:
Robby Findler 2010-06-05 11:06:31 -05:00
parent db0f73bc4f
commit ccfa9c254f
1 changed files with 53 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/compiler/embed.rkt
View File

@ -1,7 +1,6 @@
#lang scheme/base
(module embed mzscheme (require scheme/unit
(require mzlib/unit scheme/contract)
mzlib/contract)
(require "sig.ss") (require "sig.ss")
@ -11,7 +10,7 @@
(define-values/invoke-unit/infer compiler:embed@) (define-values/invoke-unit/infer compiler:embed@)
(provide/contract [make-embedding-executable (provide/contract [make-embedding-executable
(opt-> (path-string? (->* (path-string?
any/c any/c
any/c any/c
(listof (list/c (or/c boolean? symbol?) any/c)) (listof (list/c (or/c boolean? symbol?) any/c))
@ -25,10 +24,10 @@
[create-embedding-executable [create-embedding-executable
(->* (path-string?) (->* (path-string?)
(#:modules (#:modules
(lisof (list/c (or/c symbol? #f #t) (listof (list/c (or/c symbol? #f #t)
module-path?)) (or/c path? module-path?)))
#:configure-via-first-module? any/c #:configure-via-first-module? any/c
#:literal-files (listof path-string) #:literal-files (listof path-string?)
#:literal-expression any/c #:literal-expression any/c
#:literal-expressions (listof any/c) #:literal-expressions (listof any/c)
#:cmdline (listof string?) #:cmdline (listof string?)
@ -45,11 +44,12 @@
#:expand-namespace namespace? #:expand-namespace namespace?
#:src-filter (-> path? any) #:src-filter (-> path? any)
#:on-extension (or/c #f (-> path-string? boolean? any)) #:on-extension (or/c #f (-> path-string? boolean? any))
#:get-extra-imports (-> path? compiled-module? (listof module-path?))) #:get-extra-imports (-> path? compiled-module-expression? (listof module-path?)))
void?)]) void?)])
(provide write-module-bundle (provide write-module-bundle
embedding-executable-is-directory? embedding-executable-is-directory?
embedding-executable-is-actually-directory? embedding-executable-is-actually-directory?
embedding-executable-put-file-extension+style+filters embedding-executable-put-file-extension+style+filters
embedding-executable-add-suffix)) embedding-executable-add-suffix)