From 0df8f399144f17ebe53adcccda3c09af11322429 Mon Sep 17 00:00:00 2001
From: Patrick Mahoney <paddy.mahoney@gmail.com>
Date: Mon, 4 Mar 2013 14:44:48 -0500
Subject: [PATCH] Readline-to-Racket: Rename file to mzrl.rkt to rktrl.rkt

---
 pkgs/readline-pkgs/readline-lib/readline/pread.rkt          | 2 +-
 pkgs/readline-pkgs/readline-lib/readline/readline.rkt       | 6 +++---
 .../readline-lib/readline/{mzrl.rkt => rktrl.rkt}           | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)
 rename pkgs/readline-pkgs/readline-lib/readline/{mzrl.rkt => rktrl.rkt} (99%)

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)))