From mboxrd@z Thu Jan 1 00:00:00 1970 From: KDr2 Subject: Re: [PATCH] ob-scheme.el: Fix scheme code blocks execution error in batch mode Date: Thu, 10 Apr 2014 19:32:52 +0800 Message-ID: References: Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=089e011764e9136f5004f6ae953b Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:53773) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WYDEI-00036h-SI for emacs-orgmode@gnu.org; Thu, 10 Apr 2014 07:33:16 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WYDEH-00063d-Eq for emacs-orgmode@gnu.org; Thu, 10 Apr 2014 07:33:14 -0400 Received: from mail-ob0-x22e.google.com ([2607:f8b0:4003:c01::22e]:47171) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WYDEH-00063W-7W for emacs-orgmode@gnu.org; Thu, 10 Apr 2014 07:33:13 -0400 Received: by mail-ob0-f174.google.com with SMTP id wo20so4202229obc.19 for ; Thu, 10 Apr 2014 04:33:12 -0700 (PDT) In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Oleh Cc: emacs-orgmode@gnu.org --089e011764e9136f5004f6ae953b Content-Type: text/plain; charset=ISO-8859-1 org-plus-contrib-20140407 And the file lisp/ob-scheme.el is the same as it in the master branch: And the error message before patched: Loading /home/kdr2/.emacs.d/init.el (source)... Loading /home/kdr2/.emacs.d/src/elisp/common.el (source)... Loading pde-load... Loading pde-loaddefs... ../.emacs.d/src/elisp/tools/init-ace-jump.el: `flet' is an obsolete macro (as of 24.3); use either `cl-flet' or `cl-letf'. Loading /home/kdr2/.emacs.d/src/elisp/misc.el (source)... Loading desktop... Loading /home/kdr2/.emacs.d/src/elisp/themes/wombat-custom.el (source)... Loading vline... Evaluate this scheme code block on your system? (y or n) y executing Scheme code block... Starting Geiser REPL for guile ... Package assoc is obsolete! Package complete is obsolete! Guile REPL up and running! => "Hello Scheme in OrgMode" Debugger entered--Lisp error: (wrong-type-argument arrayp nil) org-babel-scheme-execute-with-geiser("(display \"Hello Scheme in OrgMode\")" t guile nil) org-babel-execute:scheme("(display \"Hello Scheme in OrgMode\")" ((:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports . "results") (:results . "raw output replace") (:colname-names) (:hlines . "no") (:result-params "replace" "output" "raw") (:result-type . output) (:rowname-names) (:session . "none"))) org-babel-execute-src-block(nil ("scheme" "(display \"Hello Scheme in OrgMode\")" ((:colname-names) (:rowname-names) (:result-params "replace" "out put" "raw" "replace" "output" "raw") (:result-type . output) (:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangl e . "no") (:exports . "results") (:results . "replace output raw") (:session . "none") (:rowname-names) (:result-type . output) (:result-params "repl ace" "output" "raw") (:hlines . "no") (:colname-names)) "" nil 0 1)) org-babel-exp-results(("scheme" "(display \"Hello Scheme in OrgMode\")" ((:cache . "no") (:colname-names) (:comments . "") (:exports . "results") ( :hlines . "no") (:noweb . "no") (:padline . "") (:result-params "replace" "output" "raw") (:result-type . output) (:results . "replace output raw") ( :rowname-names) (:session . "none") (:shebang . "") (:tangle . "no")) "" nil 0 1) block nil "a01854650514fd2cec7ce6957a4622b52118fcd3") org-babel-exp-do-export(("scheme" "(display \"Hello Scheme in OrgMode\")" ((:cache . "no") (:colname-names) (:comments . "") (:exports . "results") (:hlines . "no") (:noweb . "no") (:padline . "") (:result-params "replace" "output" "raw") (:result-type . output) (:results . "replace output raw"$ (:rowname-names) (:session . "none") (:shebang . "") (:tangle . "no")) "" nil 0 1) block "a01854650514fd2cec7ce6957a4622b52118fcd3") org-babel-exp-src-block(("scheme" ":exports" "results" ":results" "output" "raw")) org-babel-exp-process-buffer() org-export-execute-babel-code() org-export-as(html nil nil nil nil) org-export-to-file(html "./test.html" nil nil nil nil nil) org-html-export-to-html() call-interactively(org-html-export-to-html nil nil) command-execute(org-html-export-to-html) command-line-1(("--eval=(load \"~/.emacs.d/init.el\")" "/home/kdr2/ test.org" "-f" "org-html-export-to-html")) command-line() normal-top-level() On Thu, Apr 10, 2014 at 7:22 PM, Oleh wrote: > > Version of geiser I installed: geiser-20140326.951, If it has been > changed, > > it must be changed in the past 2 weeks ... > > > > That's exactly the version that I have. > Which org-mode are you using? > -- -- KDr2, http://kdr2.com --089e011764e9136f5004f6ae953b Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable
org-plus-contrib-20140407

And the f= ile lisp/ob-scheme.el is the same as it in the master branch:
And the error message before patched:

Loading /home/kdr2/.emacs.d/init.el (source)...
Loading /hom= e/kdr2/.emacs.d/src/elisp/common.el (source)...
Loading pde-load.= ..
Loading pde-loaddefs...
../.emacs.d/src/elisp/tools/= init-ace-jump.el: `flet' is an obsolete macro (as of 24.3); use either = `cl-flet' or `cl-letf'.
Loading /home/kdr2/.emacs.d/src/elisp/misc.el (source)...
Lo= ading desktop...
Loading /home/kdr2/.emacs.d/src/elisp/themes/wom= bat-custom.el (source)...
Loading vline...
Evaluate thi= s scheme code block on your system? (y or n) y
executing Scheme code block...
Starting Geiser REPL for guil= e ...

Package assoc is obsolete!
Package= complete is obsolete!
Guile REPL up and running!
=3D> "Hello Scheme in OrgMode"
Debugger entered--Lis= p error: (wrong-type-argument arrayp nil)
=A0 org-babel-scheme-ex= ecute-with-geiser("(display \"Hello Scheme in OrgMode\")&quo= t; t guile nil)
=A0 org-babel-execute:scheme("(display \"Hello Scheme in Org= Mode\")" ((:comments . "") (:shebang . "") (:= cache . "no") (:padline . "") (:noweb . "no")= =A0
(:tangle . "no") (:exports . "results") (:results = . "raw output replace") (:colname-names) (:hlines . "no"= ;) (:result-params "replace" "output" "raw")<= /div>
=A0(:result-type . output) (:rowname-names) (:session . "none&quo= t;)))
=A0 org-babel-execute-src-block(nil ("scheme" &qu= ot;(display \"Hello Scheme in OrgMode\")" ((:colname-names) = (:rowname-names) (:result-params "replace" "out
put" "raw" "replace" "output" "= ;raw") (:result-type . output) (:comments . "") (:shebang . = "") (:cache . "no") (:padline . "") (:noweb .= "no") (:tangl
e . "no") (:exports . "results") (:results . "= ;replace output raw") (:session . "none") (:rowname-names) (= :result-type . output) (:result-params "repl
ace" "= ;output" "raw") (:hlines . "no") (:colname-names))= "" nil 0 1))
=A0 org-babel-exp-results(("scheme" "(display \"He= llo Scheme in OrgMode\")" ((:cache . "no") (:colname-na= mes) (:comments . "") (:exports . "results") (
:hlines . "no") (:noweb . "no") (:padline . ""= ;) (:result-params "replace" "output" "raw") = (:result-type . output) (:results . "replace output raw") (
:rowname-names) (:session . "none") (:shebang . ""= ) (:tangle . "no")) "" nil 0 1) block nil "a018546= 50514fd2cec7ce6957a4622b52118fcd3")
=A0 org-babel-exp-do-exp= ort(("scheme" "(display \"Hello Scheme in OrgMode\"= ;)" ((:cache . "no") (:colname-names) (:comments . "&qu= ot;) (:exports . "results") (:hlines . "no") (:noweb . = "no") (:padline . "") (:result-params "replace&quo= t; "output" "raw") (:result-type . output) (:results . = "replace output raw"$ (:rowname-names) (:session . "none&quo= t;) (:shebang . "") (:tangle . "no")) "" nil = 0 1) block "a01854650514fd2cec7ce6957a4622b52118fcd3")
=A0 org-babel-exp-src-block(("scheme" ":exports" &= quot;results" ":results" "output" "raw")= )
=A0 org-babel-exp-process-buffer()
=A0 org-export-exe= cute-babel-code()
=A0 org-export-as(html nil nil nil nil)
=A0 org-export-to-fi= le(html "./test.html" nil nil nil nil nil)
=A0 org-html= -export-to-html()
=A0 call-interactively(org-html-export-to-html = nil nil)
=A0 command-execute(org-html-export-to-html)
=A0 command-lin= e-1(("--eval=3D(load \"~/.emacs.d/init.el\")" "/ho= me/kdr2/test.org" "-f" "= ;org-html-export-to-html"))
=A0 command-line()
=A0 normal-top-level()
<= div>


On Thu, Apr 10, 2014 at 7:22 PM, Oleh <ohwoeowho@gmail.com&g= t; wrote:
> Version of =A0geiser I = installed: geiser-20140326.951, If it has been changed,
> it must be changed in the past 2 weeks ...
>

That's exactly the version that I have.
Which org-mode are you using?



--
--=A0

KDr2, http://kdr2.com
--089e011764e9136f5004f6ae953b--