Changeset 39711 in project


Ignore:
Timestamp:
03/14/21 21:38:10 (5 weeks ago)
Author:
Kon Lovett
Message:

inline removal

Location:
release/5/srfi-41/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-41/trunk/streams-queue.scm

    r39709 r39711  
    2424  (chicken type)
    2525  (chicken syntax)
    26   streams
    27   (only type-errors error-pair))
    28 
    29 (define-inline (%structure-instance? x s) (##core#inline "C_i_structurep" x s))
    30 
    31 (include-relative "inline-type-checks")
    32 
    33 (include-relative "streams-inlines")
     26  (only type-checks check-pair)
     27  streams)
    3428
    3529;;;
     
    4943
    5044(define (queue-cons q x)
    51   (%check-pair 'queue-cons q 'queue)
     45  (check-pair 'queue-cons q 'queue)
    5246  (finalize-queue (car q) (stream-cons x (cdr q))) )
    5347
    5448(define (queue-head q)
    55   (%check-pair 'queue-head q 'queue)
     49  (check-pair 'queue-head q 'queue)
    5650  (if (stream-null? (car q))
    5751    (error 'queue-head "empty queue")
     
    5953
    6054(define (queue-tail q)
    61   (%check-pair 'queue-tail q 'queue)
     55  (check-pair 'queue-tail q 'queue)
    6256  (if (stream-null? (car q))
    6357    (error 'queue-tail "empty queue")
  • release/5/srfi-41/trunk/tests/srfi-41-test.scm

    r39709 r39711  
    1515; THE USE OR OTHER DEALINGS IN THE SOFTWARE.
    1616
    17 (import streams)
    18 (import streams-utils)
    19 (import streams-math)
    20 (import type-errors)
    21 (import (chicken condition))
     17(import scheme
     18  (chicken condition)
     19  type-errors
     20  streams
     21  streams-utils
     22  streams-math
     23  streams-queue)
    2224
    2325;;;
Note: See TracChangeset for help on using the changeset viewer.