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