Changeset 11095 in project


Ignore:
Timestamp:
06/28/08 09:27:31 (12 years ago)
Author:
felix winkelmann
Message:

various fixes - things work, felix's happy

Location:
release/4
Files:
1 deleted
6 edited

Legend:

Unmodified
Added
Removed
  • release/4/easyffi/easyffi.meta

    r6708 r11095  
    55 (category ffi)
    66 (license "BSD")
    7  (needs silex)
     7 (needs silex matchable)
    88 (doc-from-wiki #t)
    99 (author "[[felix winkelmann]]")
  • release/4/easyffi/easyffi.setup

    r11065 r11095  
    55       ("easyffi-base.so" ("easyffi-base.scm" "easyffi.l.scm")
    66        (compile -host -s -O2 easyffi-base.scm -j easyffi-base)
    7         #;(compile -s -O2 -d0 easyffi-base.scm -j easyffi-base) )
    8        ("easyffi-base.import.so" ("easyffi-base.import.scm")
     7        #;(compile -host -s -O2 -d0 easyffi-base.scm -j easyffi-base) )
     8       ("easyffi-base.import.so" ("easyffi-base.so") ; generates import lib
    99        (compile -host -s -O2 -d0 easyffi-base.import.scm) )
    1010       ("easyffi.so" ("easyffi.scm" "easyffi-base.import.so")
  • release/4/numbers/numbers.scm

    r11088 r11095  
    8989;;; Error handling
    9090
    91 (define-inline (bad-number loc x) (##sys#signal-hook #:type-error loc "bad argument type - not a number" x))
    92 (define-inline (bad-real loc x) (##sys#signal-hook #:type-error loc "bad argument type - not a real number" x))
    93 (define-inline (bad-integer loc x) (##sys#signal-hook #:type-error loc "bad argument type - not an integer" x))
    94 (define-inline (bad-complex/o loc x) (##sys#signal-hook #:type-error loc "bad argument type - complex number has no ordering" x))
    95 (define-inline (bad-base loc x) (##sys#signal-hook #:type-error loc "bad argument type - not a valid base" x))
     91(define (bad-number loc x) (##sys#signal-hook #:type-error loc "bad argument type - not a number" x))
     92(define (bad-real loc x) (##sys#signal-hook #:type-error loc "bad argument type - not a real number" x))
     93(define (bad-integer loc x) (##sys#signal-hook #:type-error loc "bad argument type - not an integer" x))
     94(define (bad-complex/o loc x) (##sys#signal-hook #:type-error loc "bad argument type - complex number has no ordering" x))
     95(define (bad-base loc x) (##sys#signal-hook #:type-error loc "bad argument type - not a valid base" x))
     96(define (div/0 loc x y) (##sys#signal-hook #:arithmetic-error loc "division by zero" x y))
    9697
    9798(define-inline (%init-tags tagvec) (##core#inline "init_tags" tagvec))
     
    104105(define-inline (fix-div/0 x y loc)
    105106  (if (eq? y 0)
    106       (##sys#signal-hook #:arithmetic-error loc "division by zero" x y)
     107      (div/0 loc x y)
    107108      y) )
    108109
    109110(define-inline (flo-div/0 x y loc)
    110111  (if (##core#inline "C_flonum_equalp" y 0.0)
    111       (##sys#signal-hook #:arithmetic-error loc "division by zero" x y)
     112      (div/0 loc x y)
    112113      y) )
    113114
  • release/4/opengl/gl.scm

    r11079 r11095  
    55(module gl all
    66
    7 (import scheme chicken foreign easyffi)
     7(import scheme chicken (except foreign foreign-declare) easyffi)
    88
    99(cond-expand
  • release/4/opengl/glu.scm

    r11079 r11095  
    55(module glu all
    66
    7 (import scheme chicken foreign easyffi)
     7(import scheme chicken (except foreign foreign-declare) easyffi)
    88
    99(cond-expand
  • release/4/silex/silex.scm

    r11093 r11095  
    2626  (fixnum)
    2727  (no-procedure-checks-for-usual-bindings) )
     28
     29
     30(require-library srfi-13)
    2831
    2932
Note: See TracChangeset for help on using the changeset viewer.