Changeset 12013 in project


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

Use of "unsafe" record-type.

Location:
release/3/remote-mailbox
Files:
10 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/3/remote-mailbox/tags/1.2.0/remote-mailbox-eggdoc.scm

    r8938 r12013  
    146146
    147147                (history
     148                        (version "1.2.0" "Use of \"unsafe\" record-type.")
     149                        (version "1.1" "")
    148150                        (version "1.0" "")
    149151                        (version "0.4" "Added lookup-table rqrmnt")
  • release/3/remote-mailbox/tags/1.2.0/remote-mailbox.html

    r11636 r12013  
    248248<h3>Version</h3>
    249249<ul>
     250<li>1.2.0 Use of &quot;unsafe&quot; record-type.</li>
     251<li>1.1 </li>
    250252<li>1.0 </li>
    251253<li>0.4 Added lookup-table rqrmnt</li>
  • release/3/remote-mailbox/tags/1.2.0/remote-mailbox.scm

    r11636 r12013  
    118118        (conc name #\@ host #\: port) )
    119119
    120 (define-unchecked-record-type %remote-mailbox
     120(define-record-type/unsafe-inline-unchecked remote-mailbox
    121121        (%make-remote-mailbox name host port connect mutex input output)
    122122        %remote-mailbox?
  • release/3/remote-mailbox/tags/1.2.0/remote-mailbox.setup

    r8938 r12013  
    22
    33(required-extension-version
    4   'misc-extn              "3.0"
     4  'misc-extn              "3.2.0"
    55  'synch                  "1.4"
    66  'miscmacros             "2.4"
  • release/3/remote-mailbox/tags/1.2.0/tests/remote-mailbox-test.scm

    r11636 r12013  
    3838
    3939(if operation
    40     (select operation
    41       [('client)
     40    (case operation
     41      [(client)
    4242        (client)]
    43       [('server)
     43      [(server)
    4444        (server)]
    4545      [else
    4646        (error 'remote-mailbox-test "Unrecognized operation: " operation) ] )
    4747    (let ([cmd (first (argv))])
     48      #;(print "Running Server: " cmd)
    4849      (process-run cmd `("server"))
    49       #;(sleep 1)
     50      #;(sleep 1) ; This might be needed
     51      #;(print "Running Client: " cmd)
    5052      (process-execute cmd `("client")) ) )
  • release/3/remote-mailbox/trunk/remote-mailbox-eggdoc.scm

    r8938 r12013  
    146146
    147147                (history
     148                        (version "1.2.0" "Use of \"unsafe\" record-type.")
     149                        (version "1.1" "")
    148150                        (version "1.0" "")
    149151                        (version "0.4" "Added lookup-table rqrmnt")
  • release/3/remote-mailbox/trunk/remote-mailbox.html

    r11636 r12013  
    248248<h3>Version</h3>
    249249<ul>
     250<li>1.2.0 Use of &quot;unsafe&quot; record-type.</li>
     251<li>1.1 </li>
    250252<li>1.0 </li>
    251253<li>0.4 Added lookup-table rqrmnt</li>
  • release/3/remote-mailbox/trunk/remote-mailbox.scm

    r11636 r12013  
    118118        (conc name #\@ host #\: port) )
    119119
    120 (define-unchecked-record-type %remote-mailbox
     120(define-record-type/unsafe-inline-unchecked remote-mailbox
    121121        (%make-remote-mailbox name host port connect mutex input output)
    122122        %remote-mailbox?
  • release/3/remote-mailbox/trunk/remote-mailbox.setup

    r8938 r12013  
    22
    33(required-extension-version
    4   'misc-extn              "3.0"
     4  'misc-extn              "3.2.0"
    55  'synch                  "1.4"
    66  'miscmacros             "2.4"
  • release/3/remote-mailbox/trunk/tests/remote-mailbox-test.scm

    r11636 r12013  
    3838
    3939(if operation
    40     (select operation
    41       [('client)
     40    (case operation
     41      [(client)
    4242        (client)]
    43       [('server)
     43      [(server)
    4444        (server)]
    4545      [else
    4646        (error 'remote-mailbox-test "Unrecognized operation: " operation) ] )
    4747    (let ([cmd (first (argv))])
     48      #;(print "Running Server: " cmd)
    4849      (process-run cmd `("server"))
    49       #;(sleep 1)
     50      #;(sleep 1) ; This might be needed
     51      #;(print "Running Client: " cmd)
    5052      (process-execute cmd `("client")) ) )
Note: See TracChangeset for help on using the changeset viewer.