Permalink
Browse files

minor.

  • Loading branch information...
samrushing committed Mar 16, 2017
1 parent 991b9a1 commit f15cc93825d7324a32efc2dd9e74c7c472cd0ff6
Showing with 1 addition and 4 deletions.
  1. +1 −4 lib/io.scm
@@ -1,10 +1,8 @@
;; -*- Mode: Scheme -*-
;; -*- Mode: Irken -*-
(cinclude "fcntl.h")
(cinclude "unistd.h")
;; redo the file object using records (i.e., with methods).
(define O_RDONLY (%%cexp int "O_RDONLY"))
(define O_WRONLY (%%cexp int "O_WRONLY"))
(define O_RDWR (%%cexp int "O_RDWR"))
@@ -33,7 +31,6 @@
(syscall
(%%cexp (int string int -> int)
"read (%0, %1, %2)"
;; XXX range check
fd buffer (string-length buffer)
)))

0 comments on commit f15cc93

Please sign in to comment.