Changeset 13543 in project
- Timestamp:
- 03/07/09 01:10:01 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/ports.scm
r13140 r13543 39 39 ; (uses data-structures) 40 40 (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) ) 46 42 47 43 (cond-expand … … 82 78 (let loop () 83 79 (let ((x (thunk))) 84 (unless (e q? x #!eof)80 (unless (eof-object? x) 85 81 (fn x) 86 82 (loop) ) ) ) ) … … 91 87 (let loop ((xs '())) 92 88 (let ((x (thunk))) 93 (if (e q? x #!eof)89 (if (eof-object? x) 94 90 (reverse xs) 95 91 (loop (cons (fn x) xs)))))))) … … 98 94 (let loop ([acc acc]) 99 95 (let ([x (thunk)]) 100 (if (e q? x #!eof)101 acc102 (loop (fn x acc))) ) ) )96 (if (eof-object? x) 97 acc 98 (loop (fn x acc))) ) ) ) 103 99 104 100 ;;;; funky-ports
Note: See TracChangeset
for help on using the changeset viewer.