From 57fb95e0a845c49db97431773cd5aa8114ff16f3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 28 Feb 2014 15:27:54 -0700 Subject: [PATCH] readline: fix broken registration of "mzscheme" as name Maybe it should be "racket", instead, but leaving as "mzscheme" in case anyone has customizations using that name. --- pkgs/readline-pkgs/readline-lib/readline/mzrl.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/pkgs/readline-pkgs/readline-lib/readline/mzrl.rkt b/pkgs/readline-pkgs/readline-lib/readline/mzrl.rkt index e4840550ef..cdd95ada42 100644 --- a/pkgs/readline-pkgs/readline-lib/readline/mzrl.rkt +++ b/pkgs/readline-pkgs/readline-lib/readline/mzrl.rkt @@ -108,7 +108,11 @@ (malloc (add1 (bytes-length cur)) cur 'raw))))) complete)) -(set-ffi-obj! "rl_readline_name" libreadline _bytes #"mzscheme") +(set-ffi-obj! "rl_readline_name" libreadline _pointer + (let ([s #"mzscheme"]) + (define m (malloc (add1 (bytes-length s)) 'atomic-interior)) + (memcpy m s (add1 (bytes-length s))) + m)) ;; need to capture the real input port below (define real-input-port (current-input-port))