Changeset 37684 in project


Ignore:
Timestamp:
06/10/19 21:06:56 (6 months ago)
Author:
Kon Lovett
Message:

fix tag identifier

Location:
release/5/mailbox/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/5/mailbox/trunk/inline-queue.scm

    r37282 r37684  
    1010
    1111;;
     12
     13;the identifier needs to be defined by somebody
     14(define queue 'queue)
    1215
    1316(define-record-type-variant queue (unsafe unchecked inline)
  • release/5/mailbox/trunk/mailbox.egg

    r37658 r37684  
    44((synopsis "Thread-safe queues with timeout")
    55 (category hell)
    6  (version "3.3.4")
     6 (version "3.3.5")
    77 (author "[[felix winkelman]] and [[kon lovett]]")
    88 (license "BSD")
  • release/5/mailbox/trunk/mailbox.scm

    r37658 r37684  
    8888       (call-with-current-continuation
    8989        (lambda (k) e0 e1 ...)))))
    90 
    91 ;;record-variants
    92 
    93 ;the identifier needs to be defined by somebody
    94 (define queue)
    95 (define mailbox)
    96 (define mailbox-cursor)
    9790
    9891;;
     
    176169(define-type mailbox (struct mailbox))
    177170
     171;the identifier needs to be defined by somebody
     172(define mailbox 'mailbox)
     173
    178174(define-record-type-variant mailbox (unsafe unchecked inline)
    179175  (%raw-make-mailbox nm qu wt)
     
    239235
    240236(define-type mailbox-cursor (struct mailbox-cursor))
     237
     238;the identifier needs to be defined by somebody
     239(define mailbox-cursor 'mailbox-cursor)
    241240
    242241(define-record-type-variant mailbox-cursor (unsafe unchecked inline)
Note: See TracChangeset for help on using the changeset viewer.