Renaming mzscheme-... to lang-...

svn: r15273
This commit is contained in:
Jay McCarthy 2009-06-25 19:25:39 +00:00
parent 3b176dcca8
commit 04600dfa28
8 changed files with 14 additions and 25 deletions

View File

@ -10,7 +10,7 @@
frtime/core/frp
(all-except frtime/lang-ext undefined?)
(only frtime/mzscheme-core any-nested-reactivity? raise-reactivity)
(only frtime/lang-core any-nested-reactivity? raise-reactivity)
;; MrEd require
(all-except mred send-event))

View File

@ -1,4 +1,4 @@
(module frtime-lang-only "mzscheme-utils.ss"
(module frtime-lang-only "lang-utils.ss"
(require frtime/lang-ext)
(require (as-is:unchecked frtime/core/frp
event-set? signal-value))
@ -12,9 +12,6 @@
(or (undefined? v)
(pred v))))
;(provide-for-syntax (rename frtime/mzscheme-utils syntax->list syntax->list))
(provide value-nowable? behaviorof
(all-from "mzscheme-utils.ss")
(all-from "lang-utils.ss")
(all-from-except frtime/lang-ext lift)))

View File

@ -13,8 +13,8 @@
(require-for-syntax mzlib/list)
(require (only frtime/core/frp super-lift undefined undefined?))
(require (rename frtime/lang-ext frtime:lift lift)
(rename frtime/mzscheme-core frtime:if if)
(only frtime/mzscheme-core frp:copy-list))
(rename frtime/lang-core frtime:if if)
(only frtime/lang-core frp:copy-list))
; (require mzlib/unit mzlib/unitsig)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

View File

@ -1,4 +1,4 @@
(module frtime "mzscheme-utils.ss"
(module frtime "lang-utils.ss"
(require (all-except "lang-ext.ss" lift deep-value-now))
(require "frp-snip.ss")
(require (as-is:unchecked frtime/core/frp
@ -13,10 +13,7 @@
(or (undefined? v)
(pred v))))
;(provide-for-syntax (rename frtime/mzscheme-utils syntax->list syntax->list))
(provide value-nowable? behaviorof
(all-from "lang-ext.ss")
(all-from "mzscheme-utils.ss")
(all-from "lang-utils.ss")
(all-from "frp-snip.ss")))

View File

@ -1,4 +1,4 @@
(module mzscheme-core mzscheme
(module lang-core mzscheme
(require-for-syntax frtime/struct mzlib/list)
(require mzlib/list
frtime/core/frp

View File

@ -1,4 +1,4 @@
(module mzscheme-utils "mzscheme-core.ss"
(module lang-utils "lang-core.ss"
(require (all-except mzscheme
module
@ -380,6 +380,6 @@
)
; from core
(provide (all-from "mzscheme-core.ss"))
(provide (all-from "lang-core.ss"))
)

View File

@ -1,4 +1,4 @@
(module lang frtime/mzscheme-utils
(module lang frtime/lang-utils
(require frtime/lang-ext)
(require (as-is:unchecked frtime/core/frp
event-set? signal-value))
@ -12,9 +12,6 @@
(or (undefined? v)
(pred v))))
;(provide-for-syntax (rename frtime/mzscheme-utils syntax->list syntax->list))
(provide value-nowable? behaviorof
(all-from frtime/mzscheme-utils)
(all-from frtime/lang-utils)
(all-from-except frtime/lang-ext lift)))

View File

@ -1,4 +1,4 @@
(module reactive "mzscheme-utils.ss"
(module reactive frtime/lang-utils
(require "lang-ext.ss")
(require "frp-snip.ss")
(require frtime/list)
@ -17,11 +17,9 @@
(or (undefined? v)
(pred v))))
;(provide-for-syntax (rename frtime/mzscheme-utils syntax->list syntax->list))
(provide value-nowable? behaviorof
(all-from frtime/list)
(all-from frtime/etc)
(all-from "mzscheme-utils.ss")
(all-from frtime/lang-utils)
(all-from-except "lang-ext.ss" lift)
(all-from "frp-snip.ss")))