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