Renaming mzscheme-... to lang-...
svn: r15273
This commit is contained in:
parent
3b176dcca8
commit
04600dfa28
|
@ -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))
|
||||
|
|
|
@ -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)))
|
||||
|
|
|
@ -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)
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
|
|
@ -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")))
|
||||
|
|
|
@ -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
|
|
@ -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"))
|
||||
|
||||
)
|
|
@ -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)))
|
||||
|
|
|
@ -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")))
|
||||
|
|
Loading…
Reference in New Issue
Block a user