rmeta-slot: Rename wrap-rmeta-slot to build-rmeta-slot.
authorChristopher Allan Webber <cwebber@dustycloud.org>
Sun, 29 Jan 2017 22:14:56 +0000 (16:14 -0600)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Sun, 29 Jan 2017 22:21:42 +0000 (16:21 -0600)
* 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.

8sync/actors.scm
8sync/rmeta-slot.scm
tests/test-rmeta-slot.scm

index d6dc148812b1576a79e85093f19373d605aa4bde..fdeccf39090d6cddb9cdbd273f3db2a616c00d5b 100644 (file)
@@ -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."
-  (wrap-rmeta-slot
+  (build-rmeta-slot
    (list (cons (quote symbol)
                (wrap-apply method)) ...)))
 
index 6c4ef6d49b7d21d7a0265c900fb77112a2657765..a9179ba56718492d03e4817f1d9ac942a1b5d031 100644 (file)
@@ -21,7 +21,7 @@
   #: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))
@@ -42,7 +42,7 @@
 ;;;   (define-class <kah-lassy> ()
 ;;;     (entries #:allocation #:each-subclass
 ;;;              #:init-thunk
-;;;              (wrap-rmeta-slot
+;;;              (build-rmeta-slot
 ;;;               `((foo . "bar")
 ;;;                 (baz . "basil")))))
 ;;;
@@ -54,7 +54,7 @@
 ;;;   (define-class <sub-lassy> (<kah-lassy>)
 ;;;     (entries #:allocation #:each-subclass
 ;;;              #:init-thunk
-;;;              (wrap-rmeta-slot
+;;;              (build-rmeta-slot
 ;;;               `((foo . "foo2")
 ;;;                 (peanut . "gallery")))))
 ;;;
   (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 ()
-    (make-rmeta-slot table)))
+    (%make-rmeta-slot table #f)))
 
 ;; Immutable and unique
 (define %the-nothing (cons '*the* '*nothing*))
index 46d30dbafe70dd2ab0d1bc83c4b7e0e77ffd9762..37dac50ec3dfacd2cad3f12fb8bb8dec1576e47e 100644 (file)
@@ -28,7 +28,7 @@
 (define-class <kah-lassy> ()
   (entries #:allocation #:each-subclass
            #:init-thunk
-           (wrap-rmeta-slot
+           (build-rmeta-slot
             `((foo . "bar")
               (baz . "basil")))))
 
@@ -42,7 +42,7 @@
 (define-class <sub-lassy> (<kah-lassy>)
   (entries #:allocation #:each-subclass
            #:init-thunk
-           (wrap-rmeta-slot
+           (build-rmeta-slot
             `((foo . "foo2")
               (peanut . "gallery")))))