Changeset 37830 in project


Ignore:
Timestamp:
08/04/19 14:34:56 (4 months ago)
Author:
sjamaan
Message:

object-evict: Use ##sys#check-fixnum instead of ##sys#check-exact on limit in object-evict-to-location

In CHICKEN 4, ##sys#check-exact was what we now call ##sys#check-fixnum
but the object-evict code hasn't been updated to match it.

Fixes #1631

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/object-evict/trunk/object-evict.scm

    r35505 r37830  
    3939  (let* ([limit (and (pair? limit)
    4040                     (let ([limit (car limit)])
    41                        (##sys#check-exact limit 'object-evict-to-location)
     41                       (##sys#check-fixnum limit 'object-evict-to-location)
    4242                       limit)) ]
    4343         [ptr2 (##sys#address->pointer (##sys#pointer->address ptr))]
Note: See TracChangeset for help on using the changeset viewer.