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

106
collects/compiler/embed.rkt
View File

@ -1,55 +1,55 @@
#lang scheme/base
(require scheme/unit
scheme/contract)
(module embed mzscheme (require "sig.ss")
(require mzlib/unit
mzlib/contract) (require "embed-unit.ss"
"embed-sig.ss")
(require "sig.ss")
(define-values/invoke-unit/infer compiler:embed@)
(require "embed-unit.ss"
"embed-sig.ss") (provide/contract [make-embedding-executable
(->* (path-string?
(define-values/invoke-unit/infer compiler:embed@) any/c
any/c
(provide/contract [make-embedding-executable (listof (list/c (or/c boolean? symbol?) any/c))
(opt-> (path-string? (listof path-string?)
any/c any/c
any/c (listof string?))
(listof (list/c (or/c boolean? symbol?) any/c)) ((listof (cons/c symbol? any/c))
(listof path-string?) any/c
any/c symbol?)
(listof string?)) void?)]
((listof (cons/c symbol? any/c)) [create-embedding-executable
any/c (->* (path-string?)
symbol?) (#:modules
void?)] (listof (list/c (or/c symbol? #f #t)
[create-embedding-executable (or/c path? module-path?)))
(->* (path-string?) #:configure-via-first-module? any/c
(#:modules #:literal-files (listof path-string?)
(lisof (list/c (or/c symbol? #f #t) #:literal-expression any/c
module-path?)) #:literal-expressions (listof any/c)
#:configure-via-first-module? any/c #:cmdline (listof string?)
#:literal-files (listof path-string) #:gracket? any/c
#:literal-expression any/c #:mred? any/c
#:literal-expressions (listof any/c) #:variant (or/c '3m 'cgc)
#:cmdline (listof string?) #:aux (listof (cons/c symbol? any/c))
#:gracket? any/c #:collects-path (or/c #f
#:mred? any/c path-string?
#:variant (or/c '3m 'cgc) (listof path-string?))
#:aux (listof (cons/c symbol? any/c)) #:launcher? any/c
#:collects-path (or/c #f #:verbose? any/c
path-string? #:compiler (-> any/c compiled-expression?)
(listof path-string?)) #:expand-namespace namespace?
#:launcher? any/c #:src-filter (-> path? any)
#:verbose? any/c #:on-extension (or/c #f (-> path-string? boolean? any))
#:compiler (-> any/c compiled-expression?) #:get-extra-imports (-> path? compiled-module-expression? (listof module-path?)))
#:expand-namespace namespace? void?)])
#:src-filter (-> path? any)
#:on-extension (or/c #f (-> path-string? boolean? any)) (provide write-module-bundle
#:get-extra-imports (-> path? compiled-module? (listof module-path?))) embedding-executable-is-directory?
void?)]) embedding-executable-is-actually-directory?
(provide write-module-bundle embedding-executable-put-file-extension+style+filters
embedding-executable-is-directory? embedding-executable-add-suffix)
embedding-executable-is-actually-directory?
embedding-executable-put-file-extension+style+filters
embedding-executable-add-suffix))