Changeset 13690 in project


Ignore:
Timestamp:
03/12/09 06:36:17 (11 years ago)
Author:
Kon Lovett
Message:

Use of core immutable.

Location:
release/4/err5rs-arithmetic/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/err5rs-arithmetic/trunk/err5rs-arithmetic-bitwise.scm

    r13651 r13690  
    260260
    261261(define-inline (%error-outside-range loc obj low high)
    262   (##sys#signal-hook #:bounds-error loc "out of range" obj low high) )
     262  (##sys#signal-hook #:bounds-error loc (##core#immutable '"out of range") obj low high) )
    263263
    264264;;
     
    270270(define-inline (%check-fixnum loc obj)
    271271  (unless (%fixnum? obj)
    272     (##sys#signal-hook #:type-error loc "bad argument type - not a fixnum" obj) ) )
     272    (##sys#signal-hook #:type-error loc (##core#immutable '"bad argument type - not a fixnum") obj) ) )
    273273
    274274;;
     
    276276(define-inline (%check-fixnum-bounds-order loc fx1 fx2)
    277277  (unless (%fx<= fx1 fx2)
    278     (##sys#signal-hook #:bounds-error loc "bounds reversed" fx1 fx2) ) )
     278    (##sys#signal-hook #:bounds-error loc (##core#immutable '"bounds reversed") fx1 fx2) ) )
    279279
    280280(define-inline (%check-fixnum-range loc lfx fx hfx)
     
    297297(define-inline (%check-fixnum-bits-count loc count start end)
    298298  (unless (%fx< (%fxabs count) (%fx- end start))
    299     (##sys#signal-hook #:bounds-error loc "too many bits for range" count start end) ) )
     299    (##sys#signal-hook #:bounds-error loc (##core#immutable '"too many bits for range") count start end) ) )
    300300
    301301;;
  • release/4/err5rs-arithmetic/trunk/err5rs-arithmetic-fixnums.scm

    r13651 r13690  
    2525
    2626(define-inline (%error-invalid-radix loc radix)
    27   (##sys#signal-hook #:type-error loc "bad argument type - invalid radix" radix) )
     27  (##sys#signal-hook #:type-error loc (##core#immutable '"bad argument type - invalid radix") radix) )
    2828
    2929(define-inline (%error-zero-division loc fx1 fx2)
    30   (##sys#signal-hook #:arithmetic-error loc "division by zero" fx1 fx2) )
     30  (##sys#signal-hook #:arithmetic-error loc (##core#immutable '"division by zero") fx1 fx2) )
    3131
    3232(define-inline (%error-fixnum-representation loc fx1 fx2)
    33   (##sys#signal-hook #:arithmetic-error loc "results not representable as fixnums" fx1 fx2) )
     33  (##sys#signal-hook #:arithmetic-error loc (##core#immutable '"results not representable as fixnums") fx1 fx2) )
    3434
    3535;;
     
    4141(define-inline (%check-cardinal-fixnum loc obj)
    4242  (unless (and (%fixnum? obj) (%fxcardinal? obj))
    43     (##sys#signal-hook #:type-error loc "bad argument type - not a cardinal fixnum" obj) ) )
     43    (##sys#signal-hook #:type-error loc (##core#immutable '"bad argument type - not a cardinal fixnum") obj) ) )
    4444
    4545;;
     
    4747(define-inline (%check-fixnum-bounds-order loc start end)
    4848  (unless (%fx<= start end)
    49     (##sys#signal-hook #:bounds-error loc "bounds reversed" start end) ) )
     49    (##sys#signal-hook #:bounds-error loc (##core#immutable '"bounds reversed") start end) ) )
    5050
    5151(define-inline (%check-fixnum-range loc lfx fx hfx)
     
    7070(define-inline (%check-fixnum-bits-count loc count start end)
    7171  (unless (%fx< count (%fx- end start))
    72     (##sys#signal-hook #:bounds-error loc "too many bits for interval" count start end) ) )
     72    (##sys#signal-hook #:bounds-error loc (##core#immutable '"too many bits for interval") count start end) ) )
    7373
    7474;;
  • release/4/err5rs-arithmetic/trunk/err5rs-arithmetic-flonums.scm

    r13667 r13690  
    3232(define-inline (%check-not-negative loc obj)
    3333  (unless (%<= 0 obj)
    34     (##sys#signal-hook #:type-error loc "bad argument type - not a cardinal number" obj) ) )
     34    (##sys#signal-hook #:type-error loc (##core#immutable '"bad argument type - not a cardinal number") obj) ) )
    3535
    3636(define-inline (%check-real loc obj)
    3737  (unless (real? obj)
    38     (##sys#signal-hook #:type-error loc "bad argument type - not a real" obj) ) )
     38    (##sys#signal-hook #:type-error loc (##core#immutable '"bad argument type - not a real") obj) ) )
    3939
    4040;;
Note: See TracChangeset for help on using the changeset viewer.