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"
"pconvert-lib"
"sandbox-lib"
"compiler-lib"
"gui-lib"
"racket-doc"))

View File

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

View File

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

View File

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

View File

@ -2,7 +2,7 @@
(require dynext/compile
setup/dirs
(prefix-in xform: "private/xform.rkt"))
(prefix-in xform: compiler/private/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 deps '("data-lib"
"compiler-lib"
"base"
"compatibility-lib"
"draw-lib"

View File

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

View File

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

View File

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

View File

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

View File

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