Changeset 35267 in project


Ignore:
Timestamp:
03/08/18 19:20:51 (9 months ago)
Author:
kon
Message:

use fx-utils, bump ver

Location:
release/4/posix-utils/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/posix-utils/trunk/posix-utils.meta

    r35163 r35267  
    88 (synopsis "posix-utils")
    99 (depends
    10   (setup-helper "1.2.0")
    11   (check-errors "2.1.0"))
     10  (check-errors "2.1.0")
     11  (mathh "3.3.2")
     12  (setup-helper "1.2.0"))
    1213 (test-depends test)
    13  (files "posix-utils.setup" "posix-utils.meta" "posix-utils.scm" "tests/run.scm" "tests/posix-utils-test.scm") )
     14 (files
     15  "posix-utils.meta" "posix-utils.setup"
     16  "posix-utils.scm"
     17  "tests/run.scm" "tests/posix-utils-test.scm") )
  • release/4/posix-utils/trunk/posix-utils.scm

    r35213 r35267  
    5151  (only type-checks
    5252    define-check+error-type
    53     check-string check-output-port) )
    54 
    55 ;;
    56 
    57 (: fxnegative? (fixnum --> boolean))
    58 (define (fxnegative? n)
    59   (fx> 0 n) )
    60 
    61 (: fxzero? (fixnum --> boolean))
    62 (define (fxzero? n)
    63   (fx= 0 n) )
    64 
    65 ;
     53    check-string check-output-port)
     54  (only fx-utils
     55    fxnegative? fxzero? fxcardinal?) )
     56
     57;;
    6658
    6759(define-type alist (or null (list-of (pair * *))))
     
    7870;
    7971(define (natural-fixnum? obj)
    80   (and (fixnum? obj) (not (fxnegative? obj))) )
     72  (and (fixnum? obj) (fxcardinal? obj)) )
    8173
    8274(: terminal-size? (* -> boolean : (list fixnum fixnum)))
  • release/4/posix-utils/trunk/posix-utils.setup

    r35213 r35267  
    55(verify-extension-name "posix-utils")
    66
    7 (setup-shared-extension-module 'posix-utils (extension-version "1.2.2")
     7(setup-shared-extension-module 'posix-utils (extension-version "1.3.0")
    88  #:compile-options '(
    99    -fixnum-arithmetic
Note: See TracChangeset for help on using the changeset viewer.