Changeset 13720 in project


Ignore:
Timestamp:
03/12/09 19:22:50 (11 years ago)
Author:
Kon Lovett
Message:

Fixed -inline use.

Location:
release/4/box
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/box/tags/2.0.0/box.scm

    r13717 r13720  
    155155;; Errors
    156156
    157 (define-inline (error-box-immutable loc box . args)
     157(define (error-box-immutable loc box . args)
    158158  (apply ##sys#signal-hook #:type-error loc "bad argument type - not a mutable box" box args))
    159159
    160 (define-inline (error-box-type loc obj . args)
     160(define (error-box-type loc obj . args)
    161161  (apply ##sys#signal-hook #:type-error loc "bad argument type - not a box" obj args))
    162162
  • release/4/box/trunk/box.scm

    r13717 r13720  
    155155;; Errors
    156156
    157 (define-inline (error-box-immutable loc box . args)
     157(define (error-box-immutable loc box . args)
    158158  (apply ##sys#signal-hook #:type-error loc "bad argument type - not a mutable box" box args))
    159159
    160 (define-inline (error-box-type loc obj . args)
     160(define (error-box-type loc obj . args)
    161161  (apply ##sys#signal-hook #:type-error loc "bad argument type - not a box" obj args))
    162162
Note: See TracChangeset for help on using the changeset viewer.