From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andy Wingo Newsgroups: gmane.lisp.guile.devel Subject: [patch] make readline pay attention to the current-reader fluid Date: Fri, 09 May 2008 13:10:44 +0200 Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1210344459 20315 80.91.229.12 (9 May 2008 14:47:39 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 9 May 2008 14:47:39 +0000 (UTC) To: guile-devel Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Fri May 09 16:48:14 2008 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JuTsr-0005nn-DQ for guile-devel@m.gmane.org; Fri, 09 May 2008 16:47:41 +0200 Original-Received: from localhost ([127.0.0.1]:36807 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JuTs9-0000Dm-2w for guile-devel@m.gmane.org; Fri, 09 May 2008 10:46:57 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JuTrc-0008Qd-JD for guile-devel@gnu.org; Fri, 09 May 2008 10:46:24 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JuTra-0008Py-VN for guile-devel@gnu.org; Fri, 09 May 2008 10:46:24 -0400 Original-Received: from [199.232.76.173] (port=43882 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JuTra-0008Pl-8D for guile-devel@gnu.org; Fri, 09 May 2008 10:46:22 -0400 Original-Received: from a-sasl-fastnet.sasl.smtp.pobox.com ([207.106.133.19]:51095 helo=sasl.smtp.pobox.com) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JuTrZ-0005Ro-Ts for guile-devel@gnu.org; Fri, 09 May 2008 10:46:22 -0400 Original-Received: from localhost.localdomain (localhost [127.0.0.1]) by a-sasl-fastnet.sasl.smtp.pobox.com (Postfix) with ESMTP id D0FDA5542 for ; Fri, 9 May 2008 10:45:55 -0400 (EDT) Original-Received: from unquote (ATuileries-152-1-22-52.w82-123.abo.wanadoo.fr [82.123.50.52]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by a-sasl-fastnet.sasl.smtp.pobox.com (Postfix) with ESMTP id 76C6C5540 for ; Fri, 9 May 2008 10:45:54 -0400 (EDT) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux) X-Pobox-Relay-ID: A15D6870-1DD6-11DD-9147-80001473D85F-02397024!a-sasl-fastnet.pobox.com X-detected-kernel: by monty-python.gnu.org: Solaris 10 (beta) X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:7226 Archived-At: --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-make-readline-s-repl-reader-impl-check-the-current.patch Content-Description: git format-patch patch patch patch >From a488aa59468f60133fc8767b3ffafa2e098bda4f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 9 May 2008 13:07:32 +0200 Subject: [PATCH] make readline's `repl-reader' impl check the current-reader fluid * guile-readline/ice-9/readline.scm (activate-readline): Use the current binding of the current-reader fluid, if it is available. --- guile-readline/ice-9/readline.scm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/guile-readline/ice-9/readline.scm b/guile-readline/ice-9/readline.scm index 363b7c0..dce7755 100644 --- a/guile-readline/ice-9/readline.scm +++ b/guile-readline/ice-9/readline.scm @@ -212,7 +212,7 @@ (set-buffered-input-continuation?! (readline-port) #f) (set-readline-prompt! prompt "... ") (set-readline-read-hook! read-hook)) - (lambda () (read)) + (lambda () ((or (fluid-ref current-reader) read))) (lambda () (set-readline-prompt! "" "") (set-readline-read-hook! #f))))) -- 1.5.5-rc2.GIT --=-=-= -- http://wingolog.org/ --=-=-=--