Changeset 13543 in project


Ignore:
Timestamp:
03/07/09 01:10:01 (11 years ago)
Author:
Kon Lovett
Message:

Rmvd unused 'C_mem_compare' def. Use of '(eof-object? x)' instead of '(eq? x #!eof)'.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/ports.scm

    r13140 r13543  
    3939; (uses data-structures)
    4040 (usual-integrations)
    41  (disable-warning redef)
    42  (foreign-declare #<<EOF
    43 #define C_mem_compare(to, from, n)   C_fix(C_memcmp(C_c_string(to), C_c_string(from), C_unfix(n)))
    44 EOF
    45 ) )
     41 (disable-warning redef) )
    4642
    4743(cond-expand
     
    8278  (let loop ()
    8379    (let ((x (thunk)))
    84       (unless (eq? x #!eof)
     80      (unless (eof-object? x)
    8581        (fn x)
    8682        (loop) ) ) ) )
     
    9187      (let loop ((xs '()))
    9288        (let ((x (thunk)))
    93           (if (eq? x #!eof)
     89          (if (eof-object? x)
    9490              (reverse xs)
    9591              (loop (cons (fn x) xs))))))))
     
    9894  (let loop ([acc acc])
    9995    (let ([x (thunk)])
    100       (if (eq? x #!eof)
    101         acc
    102         (loop (fn x acc))) ) ) )
     96      (if (eof-object? x)
     97          acc
     98          (loop (fn x acc))) ) ) )
    10399
    104100;;;; funky-ports
Note: See TracChangeset for help on using the changeset viewer.