diff --git a/retropikzel/named-pipes.scm b/retropikzel/named-pipes.scm index 8cb2dc9..b2f69af 100644 --- a/retropikzel/named-pipes.scm +++ b/retropikzel/named-pipes.scm @@ -74,20 +74,20 @@ O_WRONLY+O_NONBLOCK+O_CREAT O_WRONLY+O_CREAT)))))) -(define pipe-read-u8-buffer (make-c-bytevector (c-type-size 'uint8))) +(define pipe-read-u8-buffer (make-c-bytevector (c-type-size 'u8))) (define pipe-read-u8 (lambda (pipe) (when (not (input-pipe? pipe)) (error "Can only read from input-pipe" pipe)) (let* ((read-count (c-read (input-file-descriptor pipe) pipe-read-u8-buffer - (c-type-size 'uint8))) + (c-type-size 'u8))) (byte (if (> read-count 0) (c-bytevector-u8-ref pipe-read-u8-buffer 0) (eof-object)))) byte))) -(define pipe-write-u8-buffer (make-c-bytevector (c-type-size 'uint8))) +(define pipe-write-u8-buffer (make-c-bytevector (c-type-size 'u8))) (define pipe-write-u8 (lambda (byte pipe) (when (not (output-pipe? pipe)) diff --git a/retropikzel/shell/VERSION b/retropikzel/shell/VERSION index 3eefcb9..7dea76e 100644 --- a/retropikzel/shell/VERSION +++ b/retropikzel/shell/VERSION @@ -1 +1 @@ -1.0.0 +1.0.1