Changeset 13543 in project

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:

• chicken/trunk/ports.scm (modified) (4 diffs)

chicken/trunk/ports.scm

@@ -39 +39 @@
 ; (uses data-structures)
  (usual-integrations)
- (disable-warning redef)
- (foreign-declare #<<EOF
-#define C_mem_compare(to, from, n)   C_fix(C_memcmp(C_c_string(to), C_c_string(from), C_unfix(n)))
-EOF
-) )
+ (disable-warning redef) )
 
 (cond-expand
@@ -82 +78 @@
   (let loop ()
     (let ((x (thunk)))
-      (unless (eq? x #!eof)
+      (unless (eof-object? x)
         (fn x)
         (loop) ) ) ) )
@@ -91 +87 @@
       (let loop ((xs '()))
         (let ((x (thunk)))
-          (if (eq? x #!eof)
+          (if (eof-object? x)
               (reverse xs)
               (loop (cons (fn x) xs))))))))
@@ -98 +94 @@
   (let loop ([acc acc])
     (let ([x (thunk)])
-      (if (eq? x #!eof)
-        acc
-        (loop (fn x acc))) ) ) )
+      (if (eof-object? x)
+          acc
+          (loop (fn x acc))) ) ) )
 
 ;;;; funky-ports