Merge branch 'maint'

lisp/ob-scheme.el

@@ -180,11 +180,7 @@ is true; otherwise returns the last value."
 	    (save-current-buffer (set-buffer repl-buffer)
 				 (geiser-repl-exit))
 	    (set-process-query-on-exit-flag (get-buffer-process repl-buffer) nil)
-	    (kill-buffer repl-buffer))
-	  (setq result (if (or (string= result "#<void>")
-			       (string= result "#<unspecified>"))
-			   nil
-			 result)))))
+	    (kill-buffer repl-buffer)))))
     result))
 
 (defun org-babel-scheme--table-or-string (results)

testing/lisp/test-ob-scheme.el

@@ -41,6 +41,7 @@
 
 (ert-deftest test-ob-scheme/prologue ()
   "Test :prologue parameter."
+  (should
    (equal "#+begin_src scheme :prologue \"(define x 2)\"
 x
 #+end_src
@@ -51,7 +52,8 @@ x
 	  (org-test-with-temp-text
 	      "#+begin_src scheme :prologue \"(define x 2)\"\nx\n#+end_src"
 	    (org-babel-execute-maybe)
-	   (buffer-string)))
+	    (buffer-string))))
+  (should
    (equal
     "#+begin_src scheme :prologue \"(define x 2)\" :var y=1
 x
@@ -63,7 +65,26 @@ x
     (org-test-with-temp-text
 	"#+begin_src scheme :prologue \"(define x 2)\" :var y=1\nx\n#+end_src"
       (org-babel-execute-maybe)
-     (buffer-string))))
+      (buffer-string)))))
+
+(ert-deftest test-ob-scheme/unspecified ()
+  "Test <#unspecified> return value."
+  (should
+   (equal "#+begin_src scheme
+\(define (mysquare x)
+  (* x x))
+#+end_src
+
+#+RESULTS:
+: #<unspecified>
+"
+	  (org-test-with-temp-text
+	      "#+begin_src scheme
+(define (mysquare x)
+  (* x x))
+#+end_src"
+	    (org-babel-execute-maybe)
+	    (buffer-string)))))
 
 
 (provide 'test-ob-scheme)