Clarify what are frp reimplementations of other std libraries

svn: r15283

collects/frtime/animation.ss

@@ -5,9 +5,9 @@
            mzlib/match
            (as-is:unchecked frtime/lang-ext lift)
            mzlib/class
-           frtime/list
+           frtime/frlibs/list
-           frtime/etc
+           frtime/frlibs/etc
-           frtime/math
+           frtime/frlibs/math
            (rename mzscheme mz:define-struct define-struct))
   
   (require-for-syntax mzlib/etc)

collects/frtime/demos/growing-points.ss

@@ -10,8 +10,7 @@
 ;; Require the animation library, the gui library, and the library
 ;; containing the build-list function.
 (require frtime/animation
-         frtime/gui
+         frtime/gui)
-         frtime/etc)
 
 ;; distance : number number number number -> number
 ;; Returns the distance between (x1, y1) and (x2, y2).

collects/frtime/demos/needles.ss

@@ -10,7 +10,6 @@
 ;; Require the animation library and the library
 ;; containing the build-list function.
 (require frtime/animation
-         frtime/etc
          frtime/gui)
 
 ;; How many needles on one side of the grid of needles

collects/frtime/demos/push-pull-ball.ss

@@ -1,6 +1,5 @@
 #lang frtime
-(require frtime/etc
+(require frtime/animation)
-         frtime/animation)
 
 (define radius (new-cell 20))
 

collects/frtime/frlibs/date.ss

@@ -1,6 +1,6 @@
 #lang scheme
 (require "list.ss")
-(require (rename-in (only-in "frtime.ss" provide)
+(require (rename-in (only-in frtime/frtime provide)
                     [provide frtime:provide]))
 
 (frtime:provide

collects/frtime/frtime-big.ss

@@ -1,9 +1,12 @@
-(module frtime-big "frtime.ss"
+(module frtime-big frtime/frtime
   
-  (require (frlibs "list.ss" "etc.ss" "math.ss" "date.ss"))
+  (require frtime/frlibs/list
+           frtime/frlibs/etc
+           frtime/frlibs/math
+           frtime/frlibs/date)
   
-  (provide (all-from "frtime.ss")
+  (provide (all-from frtime/frtime)
-           (all-from (lib "list.ss" "frtime"))
+           (all-from frtime/frlibs/list)
-           (all-from (lib "etc.ss" "frtime"))
+           (all-from frtime/frlibs/etc)
-           (all-from (lib "math.ss" "frtime"))
+           (all-from frtime/frlibs/math)
-           (all-from (lib "date.ss" "frtime"))))
+           (all-from frtime/frlibs/date)))

collects/frtime/lang-core.ss

@@ -482,7 +482,7 @@
         (lambda (c prev)
           (syntax-case prev ()
             [(begin clause ...)
-             (syntax-case c (lifted lifted:nonstrict as-is:unchecked as-is frlibs)
+             (syntax-case c (lifted lifted:nonstrict as-is:unchecked as-is)
                [(lifted:nonstrict module . ids)
                 (with-syntax ([(fun-name ...) #'ids]
                               [(tmp-name ...) (generate-temporaries/loc stx #'ids)])
@@ -511,10 +511,6 @@
                       (require (rename module tmp-name fun-name) ...)
                       (define fun-name (ensure-no-signal-args tmp-name 'fun-name))
                       ...))]
-               [(frlibs str ...)
-                #'(begin
-                    clause ...
-                    (require (lib str "frtime") ...))]
                [require-spec
                 #'(begin clause ... (require require-spec))])]))
         #'(begin)

collects/frtime/reactive.ss

@@ -1,25 +1,25 @@
 (module reactive frtime/lang-utils
-  (require "lang-ext.ss")
+  (require "lang-ext.ss"
-  (require "frp-snip.ss")
+           "frp-snip.ss"
-  (require frtime/list)
+           frtime/frlibs/list
-  (require frtime/etc)
+           frtime/frlibs/etc
-  (require (as-is:unchecked frtime/core/frp
+           (as-is:unchecked frtime/core/frp
                             event-set? snap? signal-value))
-
+  
   (snap? #t)
   
   (define (value-nowable? x)
     (or (not (signal? x))
-	(not (event-set? (signal-value x)))))
+        (not (event-set? (signal-value x)))))
-
+  
   (define ((behaviorof pred) x)
     (let ([v (value-now x)])
       (or (undefined? v)
           (pred v))))
-
+  
   (provide value-nowable? behaviorof
-           (all-from frtime/list)
+           (all-from frtime/frlibs/list)
-           (all-from frtime/etc)
+           (all-from frtime/frlibs/etc)
-	   (all-from frtime/lang-utils)
+           (all-from frtime/lang-utils)
            (all-from-except "lang-ext.ss" lift)
            (all-from "frp-snip.ss")))

collects/frtime/tests/time.ss

@@ -1,5 +1,4 @@
 #lang frtime
-(require frtime/etc)
 (define x (rec y (0 . until . (add1 (inf-delay y)))))
 
 (==> (filter-e zero? (changes (modulo seconds 10)))