diff --git a/pkgs/readline-pkgs/readline-lib/readline/pread.rkt b/pkgs/readline-pkgs/readline-lib/readline/pread.rkt index f7886c8b36..88815dff0b 100644 --- a/pkgs/readline-pkgs/readline-lib/readline/pread.rkt +++ b/pkgs/readline-pkgs/readline-lib/readline/pread.rkt @@ -1,6 +1,6 @@ #lang racket/base -(require "mzrl.rkt" racket/list racket/file) +(require "rktrl.rkt" racket/list racket/file) ;; -------------------------------------------------------------------------- ;; Configuration diff --git a/pkgs/readline-pkgs/readline-lib/readline/readline.rkt b/pkgs/readline-pkgs/readline-lib/readline/readline.rkt index b163e3c1ef..84f48cf078 100644 --- a/pkgs/readline-pkgs/readline-lib/readline/readline.rkt +++ b/pkgs/readline-pkgs/readline-lib/readline/readline.rkt @@ -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")) diff --git a/pkgs/readline-pkgs/readline-lib/readline/mzrl.rkt b/pkgs/readline-pkgs/readline-lib/readline/rktrl.rkt similarity index 99% rename from pkgs/readline-pkgs/readline-lib/readline/mzrl.rkt rename to pkgs/readline-pkgs/readline-lib/readline/rktrl.rkt index cdd95ada42..b343d3ea09 100644 --- a/pkgs/readline-pkgs/readline-lib/readline/mzrl.rkt +++ b/pkgs/readline-pkgs/readline-lib/readline/rktrl.rkt @@ -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)))