Changeset 7851 in project


Ignore:
Timestamp:
01/22/08 20:13:54 (12 years ago)
Author:
Kon Lovett
Message:

Rollback since read/write-byte not in pre3

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utf8/utf8-lolevel.scm

    r7833 r7851  
    3434    sp-check? sp-check-lo? sp-check-hi?
    3535    ;; I/O
    36     read-utf8-char write-utf8-char char->utf8-string ) )
    37 
    38 (cond-expand
    39   (chicken)
    40   (else
    41     (declare
    42       (export
    43         ;; I/O
    44         read-byte write-byte ) ) ) )
     36    read-byte write-byte read-utf8-char write-utf8-char char->utf8-string ) )
    4537
    4638;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
    313305;; Basic I/O
    314306
    315 (cond-expand
    316   (chicken)
    317   (else
    318     (define (read-byte . opt)
    319       (let ((res (read-char (if (pair? opt) (car opt) (current-input-port)))))
    320         (if (char? res)
    321           (char->integer res)
    322           res)))
    323 
    324     (define (write-byte b . opt)
    325       (apply write-char (integer->char b) opt)) ) )
     307(define (read-byte . opt)
     308  (let ((res (read-char (if (pair? opt) (car opt) (current-input-port)))))
     309    (if (char? res)
     310      (char->integer res)
     311      res)))
     312
     313(define (write-byte b . opt)
     314  (apply write-char (integer->char b) opt))
    326315
    327316;; now in the core library
Note: See TracChangeset for help on using the changeset viewer.