Changeset 12012 in project


Ignore:
Timestamp:
09/26/08 20:51:10 (11 years ago)
Author:
Kon Lovett
Message:

Use of "unsafe" record-type.

Location:
release/3/job-worker
Files:
10 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/3/job-worker/tags/0.6.0/job-worker-eggdoc.scm

    r8911 r12012  
    3838                (requires
    3939                        (url "miscmacros.html" "miscmacros")
    40                         (url "misc-extn.html" "misc-extn > 2.1")
    41                         (url "synch.html" "synch 0.6"))
     40                        (url "misc-extn.html" "misc-extn")
     41                        (url "synch.html" "synch"))
    4242
    4343                (documentation
     
    324324
    325325                (history
    326                         (version "0.5" "Deprecated 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.")
     326                        (version "0.6.0" "Use of \"unsafe\" record-type.")
     327                        (version "0.5" "Removed 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.")
    327328                        (version "0.4" "Removed unnecessary tests. Changes for synch 1.3")
    328329                        (version "0.3" "Changes for synch 0.6")
  • release/3/job-worker/tags/0.6.0/job-worker.html

    r8911 r12012  
    163163<ul>
    164164<li><a href="miscmacros.html">miscmacros</a></li>
    165 <li><a href="misc-extn.html">misc-extn &gt; 2.1</a></li>
    166 <li><a href="synch.html">synch 0.6</a></li></ul></div>
     165<li><a href="misc-extn.html">misc-extn</a></li>
     166<li><a href="synch.html">synch</a></li></ul></div>
    167167<div class="section">
    168168<h3>Documentation</h3>
     
    418418<h3>Version</h3>
    419419<ul>
    420 <li>0.5 Deprecated 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.</li>
     420<li>0.6.0 Use of &quot;unsafe&quot; record-type.</li>
     421<li>0.5 Removed 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.</li>
    421422<li>0.4 Removed unnecessary tests. Changes for synch 1.3</li>
    422423<li>0.3 Changes for synch 0.6</li>
  • release/3/job-worker/tags/0.6.0/job-worker.scm

    r9526 r12012  
    296296        (when vec (vector-set! vec idx obj) ) )
    297297
    298 (define-unchecked-record-type circumstance
     298(define-record-type/unsafe-inline-unchecked circumstance
    299299        (%make-circumstance id waiter data)
    300300        %circumstance?
     
    303303        (data %circumstance-data %circumstance-data-set!) )
    304304
    305 (define-unchecked-record-type chore
     305(define-record-type/unsafe-inline-unchecked chore
    306306        (%make-chore id amount circumstance action data)
    307307        %chore?
     
    312312        (data %chore-data %chore-data-set!) )
    313313
    314 (define-unchecked-record-type laborer
     314(define-record-type/unsafe-inline-unchecked laborer
    315315        (%make-laborer id action data)
    316316        %laborer?
     
    319319        (data %laborer-data %laborer-data-set!) )
    320320
    321 (define-unchecked-record-type associate
     321(define-record-type/unsafe-inline-unchecked associate
    322322        (%make-associate chore laborer remaining thread data)
    323323        %associate?
  • release/3/job-worker/tags/0.6.0/job-worker.setup

    r8911 r12012  
    33(required-extension-version
    44  'synch                  "1.3"
    5   'misc-extn              "3.0"
     5  'misc-extn              "3.2.0"
    66  'miscmacros             "2.4")
    77
  • release/3/job-worker/tags/0.6.0/tests/job-worker-test.scm

    r8911 r12012  
    1313  (let-optionals ARGS ([CLSPRC #f] [SECS #f])
    1414    (if CLSPRC
    15       `(set! ,VAR (run-timeout-chore! ',VAR ,CLSPRC ,SECS))
     15      `(set! ,VAR (run-timeout-job! ',VAR ,CLSPRC ,SECS))
    1616      `(associate-stop! ,VAR)) ) )
    1717
     
    2828(define-constant WAIT-SECONDS 5.0)
    2929
     30#;
    3031(define-test job-worker-test "Timeout Test"
    3132  (let ([timeout-associate #f]
     
    4546)
    4647
    47 #; ; Pretty Output Version
    4848(define-test job-worker-test "Timeout Test"
    4949  (initial
  • release/3/job-worker/trunk/job-worker-eggdoc.scm

    r8911 r12012  
    3838                (requires
    3939                        (url "miscmacros.html" "miscmacros")
    40                         (url "misc-extn.html" "misc-extn > 2.1")
    41                         (url "synch.html" "synch 0.6"))
     40                        (url "misc-extn.html" "misc-extn")
     41                        (url "synch.html" "synch"))
    4242
    4343                (documentation
     
    324324
    325325                (history
    326                         (version "0.5" "Deprecated 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.")
     326                        (version "0.6.0" "Use of \"unsafe\" record-type.")
     327                        (version "0.5" "Removed 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.")
    327328                        (version "0.4" "Removed unnecessary tests. Changes for synch 1.3")
    328329                        (version "0.3" "Changes for synch 0.6")
  • release/3/job-worker/trunk/job-worker.html

    r8911 r12012  
    163163<ul>
    164164<li><a href="miscmacros.html">miscmacros</a></li>
    165 <li><a href="misc-extn.html">misc-extn &gt; 2.1</a></li>
    166 <li><a href="synch.html">synch 0.6</a></li></ul></div>
     165<li><a href="misc-extn.html">misc-extn</a></li>
     166<li><a href="synch.html">synch</a></li></ul></div>
    167167<div class="section">
    168168<h3>Documentation</h3>
     
    418418<h3>Version</h3>
    419419<ul>
    420 <li>0.5 Deprecated 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.</li>
     420<li>0.6.0 Use of &quot;unsafe&quot; record-type.</li>
     421<li>0.5 Removed 'run-timeout-chore!'. Added 'run-timeout-job!', 'make-timeout-associate'.</li>
    421422<li>0.4 Removed unnecessary tests. Changes for synch 1.3</li>
    422423<li>0.3 Changes for synch 0.6</li>
  • release/3/job-worker/trunk/job-worker.scm

    r9526 r12012  
    296296        (when vec (vector-set! vec idx obj) ) )
    297297
    298 (define-unchecked-record-type circumstance
     298(define-record-type/unsafe-inline-unchecked circumstance
    299299        (%make-circumstance id waiter data)
    300300        %circumstance?
     
    303303        (data %circumstance-data %circumstance-data-set!) )
    304304
    305 (define-unchecked-record-type chore
     305(define-record-type/unsafe-inline-unchecked chore
    306306        (%make-chore id amount circumstance action data)
    307307        %chore?
     
    312312        (data %chore-data %chore-data-set!) )
    313313
    314 (define-unchecked-record-type laborer
     314(define-record-type/unsafe-inline-unchecked laborer
    315315        (%make-laborer id action data)
    316316        %laborer?
     
    319319        (data %laborer-data %laborer-data-set!) )
    320320
    321 (define-unchecked-record-type associate
     321(define-record-type/unsafe-inline-unchecked associate
    322322        (%make-associate chore laborer remaining thread data)
    323323        %associate?
  • release/3/job-worker/trunk/job-worker.setup

    r8911 r12012  
    33(required-extension-version
    44  'synch                  "1.3"
    5   'misc-extn              "3.0"
     5  'misc-extn              "3.2.0"
    66  'miscmacros             "2.4")
    77
  • release/3/job-worker/trunk/tests/job-worker-test.scm

    r8911 r12012  
    1313  (let-optionals ARGS ([CLSPRC #f] [SECS #f])
    1414    (if CLSPRC
    15       `(set! ,VAR (run-timeout-chore! ',VAR ,CLSPRC ,SECS))
     15      `(set! ,VAR (run-timeout-job! ',VAR ,CLSPRC ,SECS))
    1616      `(associate-stop! ,VAR)) ) )
    1717
     
    2828(define-constant WAIT-SECONDS 5.0)
    2929
     30#;
    3031(define-test job-worker-test "Timeout Test"
    3132  (let ([timeout-associate #f]
     
    4546)
    4647
    47 #; ; Pretty Output Version
    4848(define-test job-worker-test "Timeout Test"
    4949  (initial
Note: See TracChangeset for help on using the changeset viewer.