Changeset 11878 in project


Ignore:
Timestamp:
09/03/08 19:58:48 (13 years ago)
Author:
Kon Lovett
Message:

Needs Unit files.

Location:
release/3/osprocess
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/3/osprocess/tags/1.3.1/osprocess-eggdoc.scm

    r9009 r11878  
    377377
    378378                (history
     379                  (version "1.3.1" "Needs Unit files.")
    379380                  (version "1.3" "Use of misc-extn 3.1 procedures. Added user/group id setting.")
    380381                        (version "1.2" "Added collect?, search? & exact? option keywords. Added automatic input stream draining. Made osprocess result values order like osprocess-run result")
  • release/3/osprocess/tags/1.3.1/osprocess-support.scm

    r9009 r11878  
    1616;; - Pty doesn't support full winsize of termios.
    1717
    18 (use srfi-1 srfi-18 utils extras posix)
     18(use srfi-1 srfi-18 files extras posix)
    1919(use miscmacros misc-extn-posix misc-extn-list misc-extn-condition
    2020     misc-extn-directory synch job-worker)
  • release/3/osprocess/tags/1.3.1/osprocess.scm

    r9009 r11878  
    171171  (check-started loc obj) )
    172172
    173 #+unix
    174 (define (check-signal loc obj)
    175   (unless (and (fixnum? obj) (fx< -1 obj))
    176     (error loc "invalid signal" obj)) )
    177 
    178 #+unix
    179 (define (check-priority loc obj)
    180   (unless (and (fixnum? obj) (fx<= -20 obj) (fx<= obj 20))
    181     (error loc "invalid priority" obj)) )
     173(cond-expand
     174  [unix
     175    (define (check-signal loc obj)
     176      (unless (and (fixnum? obj) (fx< -1 obj))
     177        (error loc "invalid signal" obj)) )
     178
     179    (define (check-priority loc obj)
     180      (unless (and (fixnum? obj) (fx<= -20 obj) (fx<= obj 20))
     181        (error loc "invalid priority" obj)) ) ]
     182  [else] )
    182183
    183184(define (filter-rest rest)
  • release/3/osprocess/trunk/osprocess-eggdoc.scm

    r9009 r11878  
    377377
    378378                (history
     379                  (version "1.3.1" "Needs Unit files.")
    379380                  (version "1.3" "Use of misc-extn 3.1 procedures. Added user/group id setting.")
    380381                        (version "1.2" "Added collect?, search? & exact? option keywords. Added automatic input stream draining. Made osprocess result values order like osprocess-run result")
  • release/3/osprocess/trunk/osprocess-support.scm

    r9009 r11878  
    1616;; - Pty doesn't support full winsize of termios.
    1717
    18 (use srfi-1 srfi-18 utils extras posix)
     18(use srfi-1 srfi-18 files extras posix)
    1919(use miscmacros misc-extn-posix misc-extn-list misc-extn-condition
    2020     misc-extn-directory synch job-worker)
  • release/3/osprocess/trunk/osprocess.scm

    r9009 r11878  
    171171  (check-started loc obj) )
    172172
    173 #+unix
    174 (define (check-signal loc obj)
    175   (unless (and (fixnum? obj) (fx< -1 obj))
    176     (error loc "invalid signal" obj)) )
    177 
    178 #+unix
    179 (define (check-priority loc obj)
    180   (unless (and (fixnum? obj) (fx<= -20 obj) (fx<= obj 20))
    181     (error loc "invalid priority" obj)) )
     173(cond-expand
     174  [unix
     175    (define (check-signal loc obj)
     176      (unless (and (fixnum? obj) (fx< -1 obj))
     177        (error loc "invalid signal" obj)) )
     178
     179    (define (check-priority loc obj)
     180      (unless (and (fixnum? obj) (fx<= -20 obj) (fx<= obj 20))
     181        (error loc "invalid priority" obj)) ) ]
     182  [else] )
    182183
    183184(define (filter-rest rest)
Note: See TracChangeset for help on using the changeset viewer.