Re: [PATCH] ob-scheme.el: Fix scheme code blocks execution error in batch mode

[KDr2 <killy.draw@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 3569 bytes --]

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 <ohwoeowho@gmail.com> 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

[-- Attachment #2: Type: text/html, Size: 5614 bytes --]