rmeta-slot: Rename wrap-rmeta-slot to build-rmeta-slot.

* 8sync/rmeta-slot.scm (build-rmeta-slot): Renamed from wrap-rmeta-slot.
(make-rmeta-slot): Removed.
* 8sync/actors.scm (build-actions): Update caller to build-rmeta-slot.
* tests/test-rmeta-slot.scm: Update tests.

diff --git a/8sync/actors.scm b/8sync/actors.scm
index d6dc148812b1576a79e85093f19373d605aa4bde..fdeccf39090d6cddb9cdbd273f3db2a616c00d5b 100644 (file)
--- a/8sync/actors.scm
+++ b/8sync/actors.scm
@@ -311,7 +311,7 @@ raise an exception if an error."
   "Construct an alist of (symbol . method), where the method is wrapped
 with wrap-apply to facilitate live hacking and allow the method definition
 to come after class definition."
   "Construct an alist of (symbol . method), where the method is wrapped
 with wrap-apply to facilitate live hacking and allow the method definition
 to come after class definition."

-  (wrap-rmeta-slot
+  (build-rmeta-slot

    (list (cons (quote symbol)
                (wrap-apply method)) ...)))
 
    (list (cons (quote symbol)
                (wrap-apply method)) ...)))
 

diff --git a/8sync/rmeta-slot.scm b/8sync/rmeta-slot.scm
index 6c4ef6d49b7d21d7a0265c900fb77112a2657765..a9179ba56718492d03e4817f1d9ac942a1b5d031 100644 (file)
--- a/8sync/rmeta-slot.scm
+++ b/8sync/rmeta-slot.scm
@@ -21,7 +21,7 @@
   #:use-module (srfi srfi-9)
   #:use-module (ice-9 match)
 
   #:use-module (srfi srfi-9)
   #:use-module (ice-9 match)
 

-  #:export (wrap-rmeta-slot
+  #:export (build-rmeta-slot

             rmeta-slot-table rmeta-slot-cache
             maybe-build-rmeta-slot-cache!
             class-rmeta-ref))
             rmeta-slot-table rmeta-slot-cache
             maybe-build-rmeta-slot-cache!
             class-rmeta-ref))


@@ -42,7 +42,7 @@
 ;;;   (define-class <kah-lassy> ()
 ;;;     (entries #:allocation #:each-subclass
 ;;;              #:init-thunk
 ;;;   (define-class <kah-lassy> ()
 ;;;     (entries #:allocation #:each-subclass
 ;;;              #:init-thunk

-;;;              (wrap-rmeta-slot
+;;;              (build-rmeta-slot

 ;;;               `((foo . "bar")
 ;;;                 (baz . "basil")))))
 ;;;
 ;;;               `((foo . "bar")
 ;;;                 (baz . "basil")))))
 ;;;


@@ -54,7 +54,7 @@
 ;;;   (define-class <sub-lassy> (<kah-lassy>)
 ;;;     (entries #:allocation #:each-subclass
 ;;;              #:init-thunk
 ;;;   (define-class <sub-lassy> (<kah-lassy>)
 ;;;     (entries #:allocation #:each-subclass
 ;;;              #:init-thunk

-;;;              (wrap-rmeta-slot
+;;;              (build-rmeta-slot

 ;;;               `((foo . "foo2")
 ;;;                 (peanut . "gallery")))))
 ;;;
 ;;;               `((foo . "foo2")
 ;;;                 (peanut . "gallery")))))
 ;;;


@@ -69,13 +69,9 @@
   (table rmeta-slot-table)
   (cache rmeta-slot-cache set-rmeta-slot-cache!))
 
   (table rmeta-slot-table)
   (cache rmeta-slot-cache set-rmeta-slot-cache!))
 

-(define (make-rmeta-slot table)
-  (%make-rmeta-slot table #f))
-
-(define (wrap-rmeta-slot table)
-  "In general, using wrap-rmeta-slot in combination with "
+(define (build-rmeta-slot table)

   (lambda ()
   (lambda ()

-    (make-rmeta-slot table)))
+    (%make-rmeta-slot table #f)))

 
 ;; Immutable and unique
 (define %the-nothing (cons '*the* '*nothing*))
 
 ;; Immutable and unique
 (define %the-nothing (cons '*the* '*nothing*))

diff --git a/tests/test-rmeta-slot.scm b/tests/test-rmeta-slot.scm
index 46d30dbafe70dd2ab0d1bc83c4b7e0e77ffd9762..37dac50ec3dfacd2cad3f12fb8bb8dec1576e47e 100644 (file)
--- a/tests/test-rmeta-slot.scm
+++ b/tests/test-rmeta-slot.scm
@@ -28,7 +28,7 @@
 (define-class <kah-lassy> ()
   (entries #:allocation #:each-subclass
            #:init-thunk
 (define-class <kah-lassy> ()
   (entries #:allocation #:each-subclass
            #:init-thunk

-           (wrap-rmeta-slot
+           (build-rmeta-slot

             `((foo . "bar")
               (baz . "basil")))))
 
             `((foo . "bar")
               (baz . "basil")))))
 


@@ -42,7 +42,7 @@
 (define-class <sub-lassy> (<kah-lassy>)
   (entries #:allocation #:each-subclass
            #:init-thunk
 (define-class <sub-lassy> (<kah-lassy>)
   (entries #:allocation #:each-subclass
            #:init-thunk

-           (wrap-rmeta-slot
+           (build-rmeta-slot

             `((foo . "foo2")
               (peanut . "gallery")))))
 
             `((foo . "foo2")
               (peanut . "gallery")))))