suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Readline-to-Racket: Rename file to mzrl.rkt to rktrl.rkt

Browse Source
This commit is contained in:
Patrick Mahoney 2013-03-04 14:44:48 -05:00 committed by Sam Tobin-Hochstadt
parent b10f178e98
commit 0df8f39914
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/readline-pkgs/readline-lib/readline/pread.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require "mzrl.rkt" racket/list racket/file)
(require "rktrl.rkt" racket/list racket/file)
;; --------------------------------------------------------------------------
;; Configuration

6
pkgs/readline-pkgs/readline-lib/readline/readline.rkt
View File

@ -1,3 +1,3 @@
(module readline racket/base
(require "mzrl.rkt")
(provide (all-from-out "mzrl.rkt")))
#lang racket/base
(require "rktrl.rkt")
(provide (all-from-out "rktrl.rkt"))

2
pkgs/readline-pkgs/readline-lib/readline/mzrl.rkt → pkgs/readline-pkgs/readline-lib/readline/rktrl.rkt
View File

@ -126,7 +126,7 @@
;; to avoid buffering issues between C and Racket, and to allow
;; racket threads to run while waiting for input.
(set-ffi-obj! "rl_getc_function" libreadline (_fun _pointer -> _int)
(lambda (_)
(lambda (_)
(define next-byte (read-byte real-input-port))
(if (eof-object? next-byte) -1 next-byte)))