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

Needs Unit files.

Location:
release/3/osprocess/tags/1.3.1
Files:
1 edited
1 copied

Legend:

Unmodified
Added
Removed
  • 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)
Note: See TracChangeset for help on using the changeset viewer.