Changeset 13722 in project


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

Fixed -inline use.

Location:
release/4/stack
Files:
2 edited

Legend:

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

    r13719 r13722  
    3636
    3737(define-inline (%valid-stack? obj)
    38   (and #;(%structure-instance? obj 'stack) (%fx= 3 (%structure-length obj)
     38  (and #;(%structure-instance? obj 'stack) (%fx= 3 (%structure-length obj))
    3939       (%list? (%stack-list obj)) ) )
    4040
     
    136136
    137137(define (error-type-stack loc obj)
    138   (##sys#signal-hook #:type-error loc "bad argument type - not a stack" obj)
     138  (##sys#signal-hook #:type-error loc "bad argument type - not a stack" obj) )
    139139
    140140(define (error-corrupted-stack loc obj)
     
    144144  (##sys#signal-hook #:limit-error loc "stack underflow" stk) )
    145145
    146 (define-inline (error-outside-range loc obj low high)
     146(define (error-outside-range loc obj low high)
    147147  (##sys#signal-hook #:bounds-error loc "out of range" obj low high) )
    148148
  • release/4/stack/trunk/stack.scm

    r13719 r13722  
    3636
    3737(define-inline (%valid-stack? obj)
    38   (and #;(%structure-instance? obj 'stack) (%fx= 3 (%structure-length obj)
     38  (and #;(%structure-instance? obj 'stack) (%fx= 3 (%structure-length obj))
    3939       (%list? (%stack-list obj)) ) )
    4040
     
    136136
    137137(define (error-type-stack loc obj)
    138   (##sys#signal-hook #:type-error loc "bad argument type - not a stack" obj)
     138  (##sys#signal-hook #:type-error loc "bad argument type - not a stack" obj) )
    139139
    140140(define (error-corrupted-stack loc obj)
     
    144144  (##sys#signal-hook #:limit-error loc "stack underflow" stk) )
    145145
    146 (define-inline (error-outside-range loc obj low high)
     146(define (error-outside-range loc obj low high)
    147147  (##sys#signal-hook #:bounds-error loc "out of range" obj low high) )
    148148
Note: See TracChangeset for help on using the changeset viewer.