Move most of the compiler collection to compiler-lib.

This commit is contained in:
Sam Tobin-Hochstadt 2013-06-30 19:38:33 -04:00
parent d54c1e4e49
commit 3ad009070e
38 changed files with 16 additions and 7 deletions

View File

@ -5,5 +5,6 @@
"compatibility-lib" "compatibility-lib"
"pconvert-lib" "pconvert-lib"
"sandbox-lib" "sandbox-lib"
"compiler-lib"
"gui-lib" "gui-lib"
"racket-doc")) "racket-doc"))

View File

@ -1,7 +1,7 @@
(module compiler racket/base (module compiler racket/base
(require racket/unit) (require racket/unit)
(require "sig.rkt") (require compiler/sig)
(require dynext/compile-sig) (require dynext/compile-sig)
(require dynext/link-sig) (require dynext/link-sig)
@ -13,7 +13,7 @@
(require "option.rkt") (require "option.rkt")
(require "compiler-unit.rkt") (require compiler/compiler-unit)
(define-values/invoke-unit/infer compiler@) (define-values/invoke-unit/infer compiler@)

View File

@ -21,7 +21,7 @@
(error-print-width 512) (error-print-width 512)
(require (prefix-in compiler:option: "option.rkt") (require (prefix-in compiler:option: compiler/option)
"compiler.rkt") "compiler.rkt")
;; Read argv array for arguments and input file name ;; Read argv array for arguments and input file name

View File

@ -1,8 +1,8 @@
(module option racket/base (module option racket/base
(require racket/unit) (require racket/unit)
(require "sig.rkt" (require compiler/sig
"option-unit.rkt") compiler/option-unit)
(define-values/invoke-unit/infer compiler:option@) (define-values/invoke-unit/infer compiler:option@)

View File

@ -2,7 +2,7 @@
(require dynext/compile (require dynext/compile
setup/dirs setup/dirs
(prefix-in xform: "private/xform.rkt")) (prefix-in xform: compiler/private/xform))
(provide xform) (provide xform)

View File

@ -0,0 +1,3 @@
#lang setup/infotab
(define deps '("base"))

View File

@ -3,6 +3,7 @@
(define collection 'multi) (define collection 'multi)
(define deps '("data-lib" (define deps '("data-lib"
"compiler-lib"
"base" "base"
"compatibility-lib" "compatibility-lib"
"draw-lib" "draw-lib"

View File

@ -4,5 +4,6 @@
(define scribblings '(("make.scrbl" (multi-page) (tool-library)))) (define scribblings '(("make.scrbl" (multi-page) (tool-library))))
(define deps '("base" (define deps '("base"
"compiler-lib"
"compatibility-lib")) "compatibility-lib"))
(define build-deps '("scribble-lib")) (define build-deps '("scribble-lib"))

View File

@ -6,6 +6,7 @@
"compatibility-lib" "compatibility-lib"
"net-lib" "net-lib"
"sandbox-lib" "sandbox-lib"
"compiler-lib"
"scribble-lib" "scribble-lib"
"racket-index")) "racket-index"))
(define build-deps '("at-exp-lib" (define build-deps '("at-exp-lib"

View File

@ -11,6 +11,7 @@
"rackunit-lib" "rackunit-lib"
"slideshow-lib" "slideshow-lib"
"base" "base"
"compiler-lib"
"compatibility-lib" "compatibility-lib"
"data-lib" "data-lib"
"draw-lib" "draw-lib"

View File

@ -5,6 +5,7 @@
(define build-deps '("base" (define build-deps '("base"
"compatibility-lib" "compatibility-lib"
"rackunit-lib" "rackunit-lib"
"compiler-lib"
"redex" "redex"
"sandbox-lib" "sandbox-lib"
"unstable")) "unstable"))

View File

@ -25,7 +25,7 @@
(file-position (current-output-port) (cdar m)) (file-position (current-output-port) (cdar m))
(write-bytes path-bytes) (write-bytes path-bytes)
(write-byte 0)) (write-byte 0))
'update)))) #:exists 'update))))
(define (get-current-dll-dir dest) (define (get-current-dll-dir dest)
(with-input-from-file dest (with-input-from-file dest