Changeset 37684 in project
- Timestamp:
- 06/10/19 21:06:56 (6 months ago)
- Location:
- release/5/mailbox/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/5/mailbox/trunk/inline-queue.scm
r37282 r37684 10 10 11 11 ;; 12 13 ;the identifier needs to be defined by somebody 14 (define queue 'queue) 12 15 13 16 (define-record-type-variant queue (unsafe unchecked inline) -
release/5/mailbox/trunk/mailbox.egg
r37658 r37684 4 4 ((synopsis "Thread-safe queues with timeout") 5 5 (category hell) 6 (version "3.3. 4")6 (version "3.3.5") 7 7 (author "[[felix winkelman]] and [[kon lovett]]") 8 8 (license "BSD") -
release/5/mailbox/trunk/mailbox.scm
r37658 r37684 88 88 (call-with-current-continuation 89 89 (lambda (k) e0 e1 ...))))) 90 91 ;;record-variants92 93 ;the identifier needs to be defined by somebody94 (define queue)95 (define mailbox)96 (define mailbox-cursor)97 90 98 91 ;; … … 176 169 (define-type mailbox (struct mailbox)) 177 170 171 ;the identifier needs to be defined by somebody 172 (define mailbox 'mailbox) 173 178 174 (define-record-type-variant mailbox (unsafe unchecked inline) 179 175 (%raw-make-mailbox nm qu wt) … … 239 235 240 236 (define-type mailbox-cursor (struct mailbox-cursor)) 237 238 ;the identifier needs to be defined by somebody 239 (define mailbox-cursor 'mailbox-cursor) 241 240 242 241 (define-record-type-variant mailbox-cursor (unsafe unchecked inline)
Note: See TracChangeset
for help on using the changeset viewer.