Changeset 12821 in project for release/3/s11n


Ignore:
Timestamp:
12/15/08 13:15:04 (12 years ago)
Author:
felix winkelmann
Message:

fixed eof-check for deserialization; moved tests into subdir

Location:
release/3/s11n/trunk
Files:
1 added
3 edited
1 moved

Legend:

Unmodified
Added
Removed
  • release/3/s11n/trunk/s11n.meta

    r6676 r12821  
    1 ;;; s11n.meta -*- Hen -*-
     1;;; s11n.meta -*- Scheme -*-
    22
    33((egg "s11n.egg")
     
    55 (category parsing)
    66 (license "BSD")
    7  (author "<a href=\"mailto:felix@call-with-current-continuation.org\">felix</a>")
    8  (files "s11n.setup" "s11n.scm" "s11n.html" "constants.scm" "s11n-c.c" "chicken-dump.scm"))
     7 (author "felix")
     8 (files "s11n.setup" "s11n.scm" "s11n.html" "constants.scm" "s11n-c.c"
     9        "chicken-dump.scm" "tests"))
  • release/3/s11n/trunk/s11n.scm

    r9975 r12821  
    145145        (backref-count 0) )
    146146    (define (getb)
    147       (char->integer (read-char port)) )
     147      (let ((c (read-char port)))
     148        (if (eof-object? c)
     149            (error 'deserialize "unexpected end of input" port)
     150            (char->integer c))))
    148151    (define (getw)
    149152      (##core#inline "bytes_to_word" (read-string +sizeof-ulong+ port)) )
  • release/3/s11n/trunk/s11n.setup

    r9975 r12821  
    99(install-extension 's11n
    1010  `("s11n.html" "s11n.so")
    11   `((version "0.9.1") (documentation "s11n.html") ,@(if has-exports? `((exports "s11n.exports")) '())))
     11  `((version "0.9.2") (documentation "s11n.html")
     12    ,@(if has-exports? `((exports "s11n.exports")) '())))
    1213
    1314(install-program 'chicken-dump "chicken-dump")
  • release/3/s11n/trunk/tests/run.scm

    r12819 r12821  
    1 (load "s11n.so")
     1(use s11n)
    22
    33(define dump
Note: See TracChangeset for help on using the changeset viewer.