From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Berry, Charles" Subject: BUG in ob-scheme WAS: Re: Babel: verbatim results yield a table Date: Thu, 2 Aug 2018 17:08:36 +0000 Message-ID: References: <877el9arlx.fsf@iki.fi> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:51411) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1flH5z-0003fj-Ff for emacs-orgmode@gnu.org; Thu, 02 Aug 2018 13:09:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1flH5u-0007UM-HI for emacs-orgmode@gnu.org; Thu, 02 Aug 2018 13:09:03 -0400 Received: from iport-bcv2-out.ucsd.edu ([132.239.0.73]:4726) by eggs.gnu.org with esmtps (TLS1.0:RSA_ARCFOUR_SHA1:16) (Exim 4.71) (envelope-from ) id 1flH5t-0007TW-W8 for emacs-orgmode@gnu.org; Thu, 02 Aug 2018 13:08:58 -0400 In-Reply-To: <877el9arlx.fsf@iki.fi> Content-Language: en-US Content-ID: <7A453886958B334CA1A50BE1214B30B5@AD.UCSD.EDU> 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" To: Jarmo Hurri Cc: "emacs-orgmode@gnu.org" > On Aug 2, 2018, at 5:19 AM, Jarmo Hurri wrote: >=20 >=20 > Greetings. >=20 > The org manual states that in the :results header argument of a block >=20 > verbatim Interpret literally and insert as quoted text. Do not create a > table. Usage example: :results value verbatim Unfortunately, `org-babel-scheme--table-or-string' does not honor :results = verbatim. :-( >=20 > The quote above is from https://orgmode.org/manual/results.html >=20 > Given this description, I am trying to understand the result below from > a Scheme snippet (this is an exercise in the good old SICP). In > particular, why is the table created from the (nested) list? >=20 > Jarmo >=20 > #+BEGIN_SRC scheme :exports both :results value verbatim > (define (deep-reverse lst) > (define (deep-iter lst result) > (if (null? lst) > result > (let ((first (car lst)) (rest (cdr lst))) > (deep-iter rest > (cons (if > (pair? first) > (deep-reverse first) > first) > result))))) > (deep-iter lst '())) >=20 > (deep-reverse (list (list 1 2 3 4) (list (list 5 6) 7 8))) > #+END_SRC >=20 > #+RESULTS: > | 8 | 7 | (6 5) | | > | 4 | 3 | 2 | 1 | >=20 HTH, Chuck