Changeset 37684 in project

Timestamp:

06/10/19 21:06:56 (6 days ago)

Author:

kon

Message:

fix tag identifier

Location:

release/5/mailbox/trunk

Files:

• inline-queue.scm (modified) (1 diff)
• mailbox.egg (modified) (1 diff)
• mailbox.scm (modified) (3 diffs)

release/5/mailbox/trunk/inline-queue.scm

@@ -10 +10 @@
 
 ;;
+
+;the identifier needs to be defined by somebody
+(define queue 'queue)
 
 (define-record-type-variant queue (unsafe unchecked inline)

release/5/mailbox/trunk/mailbox.egg

@@ -4 +4 @@
 ((synopsis "Thread-safe queues with timeout")
  (category hell)
- (version "3.3.4")
+ (version "3.3.5")
  (author "[[felix winkelman]] and [[kon lovett]]")
  (license "BSD")

release/5/mailbox/trunk/mailbox.scm

@@ -88 +88 @@
        (call-with-current-continuation
         (lambda (k) e0 e1 ...)))))
-
-;;record-variants
-
-;the identifier needs to be defined by somebody
-(define queue)
-(define mailbox)
-(define mailbox-cursor)
 
 ;;
@@ -176 +169 @@
 (define-type mailbox (struct mailbox))
 
+;the identifier needs to be defined by somebody
+(define mailbox 'mailbox)
+
 (define-record-type-variant mailbox (unsafe unchecked inline)
   (%raw-make-mailbox nm qu wt)
@@ -239 +235 @@
 
 (define-type mailbox-cursor (struct mailbox-cursor))
+
+;the identifier needs to be defined by somebody
+(define mailbox-cursor 'mailbox-cursor)
 
 (define-record-type-variant mailbox-cursor (unsafe unchecked inline)