geiser-users
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Geiser-users] [bug #32681] Geiser does not load the .guile file when in


From: Jon Snader
Subject: [Geiser-users] [bug #32681] Geiser does not load the .guile file when invoking guile
Date: Tue, 08 Mar 2011 20:58:32 +0000
User-agent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; en-us) AppleWebKit/533.19.4 (KHTML, like Gecko) Version/5.0.3 Safari/533.19.4

Follow-up Comment #7, bug #32681 (project geiser):

The change didn't work for me because you get a `t' in the sequence of
parameters when the geiser-guile-load-init-file-p is set.  Since `t' is not a
sequence, sequencep returns false when you run geisser-guile--parameters and
aborts putting you in the emacs debugger without loading Geiser.

The following small change makes it work (because nil *is* a sequence):

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 169ac30..ff020a1 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -122,7 +122,7 @@ effect on new REPLs. For existing ones, use the command
 This function uses `geiser-guile-init-file' if it exists."
   (let ((init-file (and (stringp geiser-guile-init-file)
                         (expand-file-name geiser-guile-init-file)))
-        (q-flags (or geiser-guile-load-init-file-p '("-q"))))
+        (q-flags (if geiser-guile-load-init-file-p nil '("-q"))))
   `(,@(and (listp geiser-guile-binary) (cdr geiser-guile-binary))
     ,@q-flags "-L" ,(expand-file-name "guile/" geiser-scheme-dir)
     ,@(apply 'append (mapcar (lambda (p) (list "-L" p))

    _______________________________________________________

Reply to this item at:

  <http://savannah.nongnu.org/bugs/?32681>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.nongnu.org/




reply via email to

[Prev in Thread] Current Thread [Next in Thread]