Changeset 7306 in project


Ignore:
Timestamp:
01/08/08 08:55:43 (12 years ago)
Author:
felix winkelmann
Message:

added blob=?

Location:
chicken/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/library.scm

    r7298 r7306  
    12081208    (##core#inline "C_copy_memory" s bv n)
    12091209    s) )
     1210
     1211(define (blob=? b1 b2)
     1212  (##sys#check-blob b1 'blob=?)
     1213  (##sys#check-blob b2 'blob=?)
     1214  (let ((n (##sys#size b1)))
     1215    (and (eq? (##sys#size b2) n)
     1216         (##core#inline "C_string_compare" b1 b2 n))))
    12101217
    12111218
  • chicken/trunk/manual/Unit library

    r7036 r7306  
    937937Returns a blob with the contents of {{STRING}}.
    938938
     939==== blob=?
     940
     941 [procedure] (blob=? BLOB1 BLOB2)
     942
     943Returns {{#t}} if the two argument blobs are of the same
     944size and have the same content.
     945
    939946
    940947
Note: See TracChangeset for help on using the changeset viewer.