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 frtime/core/frp
(all-except frtime/lang-ext undefined?) (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 ;; MrEd require
(all-except mred send-event)) (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 frtime/lang-ext)
(require (as-is:unchecked frtime/core/frp (require (as-is:unchecked frtime/core/frp
event-set? signal-value)) event-set? signal-value))
@ -12,9 +12,6 @@
(or (undefined? v) (or (undefined? v)
(pred v)))) (pred v))))
;(provide-for-syntax (rename frtime/mzscheme-utils syntax->list syntax->list))
(provide value-nowable? behaviorof (provide value-nowable? behaviorof
(all-from "mzscheme-utils.ss") (all-from "lang-utils.ss")
(all-from-except frtime/lang-ext lift))) (all-from-except frtime/lang-ext lift)))

View File

@ -13,8 +13,8 @@
(require-for-syntax mzlib/list) (require-for-syntax mzlib/list)
(require (only frtime/core/frp super-lift undefined undefined?)) (require (only frtime/core/frp super-lift undefined undefined?))
(require (rename frtime/lang-ext frtime:lift lift) (require (rename frtime/lang-ext frtime:lift lift)
(rename frtime/mzscheme-core frtime:if if) (rename frtime/lang-core frtime:if if)
(only frtime/mzscheme-core frp:copy-list)) (only frtime/lang-core frp:copy-list))
; (require mzlib/unit mzlib/unitsig) ; (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 (all-except "lang-ext.ss" lift deep-value-now))
(require "frp-snip.ss") (require "frp-snip.ss")
(require (as-is:unchecked frtime/core/frp (require (as-is:unchecked frtime/core/frp
@ -13,10 +13,7 @@
(or (undefined? v) (or (undefined? v)
(pred v)))) (pred v))))
;(provide-for-syntax (rename frtime/mzscheme-utils syntax->list syntax->list))
(provide value-nowable? behaviorof (provide value-nowable? behaviorof
(all-from "lang-ext.ss") (all-from "lang-ext.ss")
(all-from "mzscheme-utils.ss") (all-from "lang-utils.ss")
(all-from "frp-snip.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-for-syntax frtime/struct mzlib/list)
(require mzlib/list (require mzlib/list
frtime/core/frp 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 (require (all-except mzscheme
module module
@ -380,6 +380,6 @@
) )
; from core ; 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 frtime/lang-ext)
(require (as-is:unchecked frtime/core/frp (require (as-is:unchecked frtime/core/frp
event-set? signal-value)) event-set? signal-value))
@ -12,9 +12,6 @@
(or (undefined? v) (or (undefined? v)
(pred v)))) (pred v))))
;(provide-for-syntax (rename frtime/mzscheme-utils syntax->list syntax->list))
(provide value-nowable? behaviorof (provide value-nowable? behaviorof
(all-from frtime/mzscheme-utils) (all-from frtime/lang-utils)
(all-from-except frtime/lang-ext lift))) (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 "lang-ext.ss")
(require "frp-snip.ss") (require "frp-snip.ss")
(require frtime/list) (require frtime/list)
@ -17,11 +17,9 @@
(or (undefined? v) (or (undefined? v)
(pred v)))) (pred v))))
;(provide-for-syntax (rename frtime/mzscheme-utils syntax->list syntax->list))
(provide value-nowable? behaviorof (provide value-nowable? behaviorof
(all-from frtime/list) (all-from frtime/list)
(all-from frtime/etc) (all-from frtime/etc)
(all-from "mzscheme-utils.ss") (all-from frtime/lang-utils)
(all-from-except "lang-ext.ss" lift) (all-from-except "lang-ext.ss" lift)
(all-from "frp-snip.ss"))) (all-from "frp-snip.ss")))