GNU bug report logs - #69686
Geiser is slow when running with geiser-guile-load-init-file set to t

Message received at submit <at> debbugs.gnu.org:

Received: (at submit) by debbugs.gnu.org; 10 Mar 2024 01:13:51 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sat Mar 09 20:13:50 2024
Received: from localhost ([127.0.0.1]:35022 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1rj7l8-0008EK-Fr
	for submit <at> debbugs.gnu.org; Sat, 09 Mar 2024 20:13:50 -0500
Received: from lists.gnu.org ([209.51.188.17]:47184)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <~@wolfsden.cz>) id 1rj7l4-0008E9-6R
 for submit <at> debbugs.gnu.org; Sat, 09 Mar 2024 20:13:49 -0500
Received: from eggs.gnu.org ([2001:470:142:3::10])
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <~@wolfsden.cz>) id 1rj7kW-0001Z4-QO
 for bug-guix@HIDDEN; Sat, 09 Mar 2024 20:13:12 -0500
Received: from wolfsden.cz ([37.205.8.62])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <~@wolfsden.cz>) id 1rj7kU-0003K5-Ev
 for bug-guix@HIDDEN; Sat, 09 Mar 2024 20:13:12 -0500
Received: by wolfsden.cz (Postfix, from userid 104)
 id 241B028828A; Sun, 10 Mar 2024 01:13:06 +0000 (UTC)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=wolfsden.cz; s=mail;
 t=1710033186; bh=ofQG1ICjsPGw9APSjH8P5UvjnneZX/MdO0uQqHdrsLo=;
 h=Date:From:To:Subject;
 b=k7V8y67fTVC1MnokCLLw2YJ+vimHNmmdP0x4qtLKLFOdXxlM0NMUzLm5nycNAmVMX
 1VKDXCeHUURUCamBPt0Nzc04Gc4VYZfKSLuQbm/xniKFreFW0+hSD+dblnKsEQoC8v
 HolN43FL+wB2jojknVLPza0W08RV0zBIxDJGXVNA05iMNS5Y0c/fMJO13pukM0w6s+
 k2sVYJDaPctDeg+0xf8gx27y7OFwO/ukP+ENzrY4Da8WOkGo4TsTRYoLW2IAPDvm4T
 +AYDmmHgeU7YRVOhSd6Xijf4nnRWgHPlx1sWJgQMKHyOk3wpzDHXtLWGU3relFA8wT
 aCDx2ziZSjMASVHXKqDozfmyIZu1jgB9Qn6Qy0GIgN2sG3UvrLOfB/YtBqSkDNtMyb
 IkLMH7H2tG88VDHbmRWS95oK2JHqQfpTWGKkXizXxQ6IOIhxQXcIIQ5Gcip2JFr5pK
 1EYVlMhn7Q9z8RKGqJXDO1By1PulF9hCC9/6psAOJVK6MJaGLu79dRu2PJmR4IoIMD
 jZAfuV5S6/aDN2JogvXwD4NxdNAJche74nBJa6j7ueAhuVdndDrup9NNJBmvTsdGAu
 b8TplbiIe9pa/u62T1neJRkOWV3WoRzhqj06YYWx6cXBeCW87c8tqoFouwS/URE4vR
 6vH5TyJVucJ7UnXxvYI8/WHQ=
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on wolfsden
X-Spam-Level: 
X-Spam-Status: No, score=-1.2 required=5.0 tests=ALL_TRUSTED,DKIM_SIGNED,
 DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,T_SCC_BODY_TEXT_LINE,
 URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.6
Received: from localhost (unknown [193.32.127.135])
 by wolfsden.cz (Postfix) with ESMTPSA id 3C424289B83
 for <bug-guix@HIDDEN>; Sun, 10 Mar 2024 01:13:05 +0000 (UTC)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=wolfsden.cz; s=mail;
 t=1710033185; bh=ofQG1ICjsPGw9APSjH8P5UvjnneZX/MdO0uQqHdrsLo=;
 h=Date:From:To:Subject;
 b=AzmTc/c4yOpaon8eucAnordG5Y9W09pHP7tx3BkF2SVmXAD4roUUpxBmnkLRTv1pD
 LhGicxC1Q4GHQUfwnMB7c/LWFoVVMScwCnE9yiKqxYxa8D9WEC8DhLN00lrKNh6U62
 U2/e05QmT6cG608i1FzDkZnONJaD7PrkkbJv3pLTK5n7XFy4Q0grp8C52FClqEefh8
 gYni1io4hDfQhzNTxisbngFNXK0Qm8Pq4MElnc73SdyqvaJ0zUqC53UAMXchFzi09w
 NL4ypgX6FYR2Kh5qxMAQvsn6TeijsWZwcUMJ0SrpMxBaKy5e76kb3mI+RHitmOc/7v
 en0rGbI6sGnVIN0w518sijBpbyeMAO9QW8mX2NKfFoRQOrISFxAT/+hRb4vhixV6H6
 dgEffFKKXH3476ZXiAqdYrfX8dE0TW3j7T9ZQfnQq3M/+yBGIPwy2zUW2+MQjDjZ+k
 H+j39WwnmblCdeyXByrMxgnVqdkU3TkrVsMRWfRCCs5ZNTe0bWtKDW731nDGx38lZY
 zHpXP2ZCjaS3vSZL1bvONjZvJpAVlyOI5mLkDxC/v/3SjhiK6yeNQ5HaSBvQqcymRs
 n7R1/pp8Po8cFG4ePEV9sb4scdFgjcxACnERQtEVtAmZkxV2cXMkXr5+WUoxRq1jGf
 8tQW9NlB2utLod700mh69BFI=
Date: Sun, 10 Mar 2024 02:13:04 +0100
From: Tomas Volf <~@wolfsden.cz>
To: bug-guix@HIDDEN
Subject: Geiser is slow when running with geiser-guile-load-init-file set to t
Message-ID: <Ze0JIBx09sBwpPKD@ws>
MIME-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha512;
 protocol="application/pgp-signature"; boundary="ql8fpCOkvfJ0CER8"
Content-Disposition: inline
Received-SPF: pass client-ip=37.205.8.62; envelope-from=~@wolfsden.cz;
 helo=wolfsden.cz
X-Spam_score_int: -20
X-Spam_score: -2.1
X-Spam_bar: --
X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
 DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, SPF_HELO_PASS=-0.001,
 SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: -1.3 (-)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -2.3 (--)


--ql8fpCOkvfJ0CER8
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

Hello,

I discovered that when I run Geiser with geiser-guile-load-init-file set to t,
it results in horrible experience, when the REPL seems to technically work, but
anything takes a long time (completion is on order of seconds).

I found out that it is caused by the readline activation.  I am unsure how to
solve this properly.  For me the workaround was to move the readline check
inside the (unless (getenv "INSIDE_EMACS") ...), since I do not need it there.
I was contemplating sending a patch doing just so, but I realized that also
disables readline in any shell mode.  I personally do not care about that (I
only interact with guile from Emacs using Geiser, at least for now), but someone
else might care.

Ignoring the fact that disabling the colors for ansi-term (and other modes?)
might not be necessary neither, I am not sure how to write more robust check.

The patch I was considering is at the end of the email, feel free to use it if
the trade-off would be acceptable.

diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm
index d9f13271d8..fcd1d76c18 100644
--- a/gnu/system/shadow.scm
+++ b/gnu/system/shadow.scm
@@ -215,24 +215,26 @@ (define %default-nanorc

 (define %default-dotguile
   (plain-file "dot-guile"
-              "(cond ((false-if-exception (resolve-interface '(ice-9 readline)))
-       =>
-       (lambda (module)
-         ;; Enable completion and input history at the REPL.
-         ((module-ref module 'activate-readline))))
-      (else
-       (display \"Consider installing the 'guile-readline' package for
-convenient interactive line editing and input history.\\n\\n\")))
+              ";;; -*- mode: scheme -*-

-      (unless (getenv \"INSIDE_EMACS\")
-        (cond ((false-if-exception (resolve-interface '(ice-9 colorized)))
-               =>
-               (lambda (module)
-                 ;; Enable completion and input history at the REPL.
-                 ((module-ref module 'activate-colorized))))
-              (else
-               (display \"Consider installing the 'guile-colorized' package
-for a colorful Guile experience.\\n\\n\"))))\n"))
+(unless (getenv \"INSIDE_EMACS\")
+  (cond ((false-if-exception (resolve-interface '(ice-9 readline)))
+         =>
+         (lambda (module)
+           ;; Enable completion and input history at the REPL.
+           ((module-ref module 'activate-readline))))
+        (else
+         (display \"Consider installing the 'guile-readline' package for
+convenient interactive line editing and input history.\n\n\")))
+
+  (cond ((false-if-exception (resolve-interface '(ice-9 colorized)))
+         =>
+         (lambda (module)
+           ;; Enable completion and input history at the REPL.
+           ((module-ref module 'activate-colorized))))
+        (else
+         (display \"Consider installing the 'guile-colorized' package
+for a colorful Guile experience.\n\n\"))))\n"))

 (define %default-skeleton-home-config
   (plain-file "default-home-config" "\


Have a nice day,
Tomas Volf

--
There are only two hard things in Computer Science:
cache invalidation, naming things and off-by-one errors.

--ql8fpCOkvfJ0CER8
Content-Type: application/pgp-signature; name="signature.asc"

-----BEGIN PGP SIGNATURE-----

iQIzBAEBCgAdFiEEt4NJs4wUfTYpiGikL7/ufbZ/wakFAmXtCSAACgkQL7/ufbZ/
walGjw/+KX85f6vr22hatMyIOD35OpF9kz89VoPvuq8dKZ1n60lTDzxxv52OM7W8
fc1jkCr2+3PleJ8nzHKbm8zdSW4yuXglQiZykZmsydwjqHiaaBkh2PedDoYIY3RY
6OjdGV4ujmVHQc4dD1JAHzENa92YdcdMkyPKFaSbOWnIKvuZAaGLY0ypiNedY3FO
kfejzp1Eg5AOLSgXIGj4A6PnVpwF8j6g6SwgFUy+ccN23aoPT3lUPsgFpCQQLFpv
U2SdmCh1uLws6f87FBeKb+huaxxobnNscGcQgnvcACnqpscp6xaz12w+f7X+MM3J
4BpLFuA53X3fy5BCQ9JWqBjzlaoxl/dWRSNEUi3tO0z1pX/sYsZO7Xb3XFKm9Kig
bU94NdDaUiI8sisnwa2hFaZJ3p5YxsvxlNmA/NKHVjEGa7DUbnZOHU2kMW1yzg4P
pXM+Dzu/2o4rPTxt58ymTI2wdc0IH87g4M+lz0/IbrvYwNRYT+NxblsDTV33R0tp
5zuT0aagItt5O5nCM2abiocJSs5q9UvJZEj5KSffqaXdjkxH3Ri/lfSSQVlaa8zH
lgKI4oyXzJxQjHUFZfT4+Gaxk81r7ChioBZZX+MiUxSX8iPorpc3gfuU4pbm5F1O
WvVBri5xUZDGCS/Omg2nhTfKUd53wavsDRwFNiheVFlE7R6sxLM=
=kHFO
-----END PGP SIGNATURE-----

--ql8fpCOkvfJ0CER8--