Changeset 22219 in project


Ignore:
Timestamp:
01/04/11 12:57:14 (9 years ago)
Author:
Alaric Snell-Pym
Message:

ugarit: Porting old test.scm -> test/run.scm

Location:
release/4/ugarit/trunk
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/ugarit/trunk/ugarit-core.scm

    r20740 r22219  
    22        (open-archive
    33         archive?
     4         archive-hash
    45         archive-global-directory-rules
    56         archive-file-cache-hits
     
    1213         archive-set-tag!
    1314         archive-tag
     15         archive-all-tags
    1416         archive-lock-tag!
    1517         archive-unlock-tag!
    1618         archive-tag-locked?
     19         archive-unlink!
    1720         archive-close!
    1821
     
    453456                   (set! *key-buffer* (cons (cons key reused?) *key-buffer*))
    454457                   (set! *key-buffer-reused?* (and *key-buffer-reused?* reused?))
    455                    (set! *key-buffer-bytes* (+ *key-buffer-bytes* (string-length key) 1))))
     458                   (set! *key-buffer-bytes* (+ *key-buffer-bytes* (string-length key) 1))
     459                   (void)))
    456460
    457461         (finish! (lambda ()
     
    659663                     (set! *key-buffer* (append keys *key-buffer*))
    660664                     (set! *key-buffer-reused?* (and *key-buffer-reused?* (every cdr keys)))
    661                      (set! *sexpr-buffer-bytes* (+ *sexpr-buffer-bytes* sexpr-len 1)))))
     665                     (set! *sexpr-buffer-bytes* (+ *sexpr-buffer-bytes* sexpr-len 1))
     666                     (void))))
    662667
    663668         (finish! (lambda ()
Note: See TracChangeset for help on using the changeset viewer.