From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: Tangling is broken in git master Date: Sat, 11 Aug 2012 21:03:09 -0400 Message-ID: <87628oncqa.fsf@norang.ca> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from eggs.gnu.org ([208.118.235.92]:47466) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T0MaQ-0001XU-08 for emacs-orgmode@gnu.org; Sat, 11 Aug 2012 21:03:23 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1T0MaN-0007JH-QA for emacs-orgmode@gnu.org; Sat, 11 Aug 2012 21:03:21 -0400 Received: from mho-01-ewr.mailhop.org ([204.13.248.71]:18145) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T0MaN-0007HT-Mm for emacs-orgmode@gnu.org; Sat, 11 Aug 2012 21:03:19 -0400 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: emacs-orgmode@gnu.org, Bastien Hi Bastien, Tangling doesn't work for me in git master anymore. Git bisect identifies the following commit as introducing the problem --8<---------------cut here---------------start------------->8--- ba16c3c6f50738b070769040586945436439be76 is the first bad commit commit ba16c3c6f50738b070769040586945436439be76 Author: Bastien Guerry Date: Sat Aug 11 10:43:56 2012 +0200 Don't use `org-labels' * org-compat.el (org-labels): Remove. * org-bibtex.el (org-bibtex-headline): Don't use `org-labels'. * ob.el (org-babel-sha1-hash, org-babel-noweb-p): Ditto. :040000 040000 bf962e4c7c93de4f2b5f71bf4fc1520ec0723a0e 43ecd68f89e1e856a4e65d84eff3cf6b84872494 M lisp --8<---------------cut here---------------end--------------->8--- --8<---------------cut here---------------start------------->8--- Debugger entered--Lisp error: (void-function letrec) (letrec ((intersect ...)) (funcall intersect (case context ... ... ...) (split-string ...))) org-babel-noweb-p(((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "yes") (:exports . "none") (:results . "replace") (:colnames . "no") (:hlines . "yes") (:padnewline . "yes") (:session . "none")) :tangle) (if (org-babel-noweb-p params :tangle) (org-babel-expand-noweb-references info) (nth 1 info)) ((lambda (body) (if ... body ...)) (if (org-babel-noweb-p params :tangle) (org-babel-expand-noweb-references info) (nth 1 info))) ((lambda (body) (with-temp-buffer ... ... ...)) ((lambda ... ...) (if ... ... ...))) (let* ((info ...) (params ...) (link ...) (source-name ...) (expand-cmd ...) (assignments-cmd ...) (body ...) (comment ...) by-lang) (setq by-lang (cdr ...)) (setq blocks (delq ... blocks)) (setq blocks (cons ... blocks))) (if (and language (not ...)) nil (let* (... ... ... ... ... ... ... ... by-lang) (setq by-lang ...) (setq blocks ...) (setq blocks ...))) (unless (and language (not ...)) (let* (... ... ... ... ... ... ... ... by-lang) (setq by-lang ...) (setq blocks ...) (setq blocks ...))) (if (string= (cdr ...) "no") nil (unless (and language ...) (let* ... ... ... ...))) (unless (string= (cdr ...) "no") (unless (and language ...) (let* ... ... ... ...))) (let* ((start-line ...) (file ...) (info ...) (src-lang ...)) (unless (string= ... "no") (unless ... ...))) (let ((full-block ...) (beg-block ...) (end-block ...) (lang ...) (beg-lang ...) (end-lang ...) (switches ...) (beg-switches ...) (end-switches ...) (header-args ...) (beg-header-args ...) (end-header-args ...) (body ...) (beg-body ...) (end-body ...)) ((lambda ... ...) (replace-regexp-in-string "[ ]" "-" ...)) (let* (... ... ... ...) (unless ... ...)) (goto-char end-block)) (while (re-search-forward org-babel-src-block-regexp nil t) (goto-char (match-beginning 0)) (let (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (... ...) (let* ... ...) (goto-char end-block))) (save-window-excursion (when file (find-file file)) (setq to-be-removed (current-buffer)) (goto-char (point-min)) (while (re-search-forward org-babel-src-block-regexp nil t) (goto-char ...) (let ... ... ... ...))) (let* ((file ...) (visited-p ...) (point ...) to-be-removed) (save-window-excursion (when file ...) (setq to-be-removed ...) (goto-char ...) (while ... ... ...)) (unless visited-p (kill-buffer to-be-removed)) (goto-char point)) (org-babel-map-src-blocks (buffer-file-name) ((lambda ... ...) (replace-regexp-in-string "[ ]" "-" ...)) (let* (... ... ... ...) (unless ... ...))) (let ((block-counter 1) (current-heading "") blocks) (org-babel-map-src-blocks (buffer-file-name) (... ...) (let* ... ...)) (setq blocks (mapcar ... blocks)) blocks) org-babel-tangle-collect-blocks(nil) (mapc (lambda (by-lang) (let* ... ...)) (org-babel-tangle-collect-blocks lang)) (let ((block-counter 0) (org-babel-default-header-args ...) path-collector) (mapc (lambda ... ...) (org-babel-tangle-collect-blocks lang)) (message "tangled %d code block%s from %s" block-counter (if ... "" "s") (file-name-nondirectory ...)) (when org-babel-post-tangle-hook (mapc ... path-collector)) path-collector) (save-excursion (let (... ... path-collector) (mapc ... ...) (message "tangled %d code block%s from %s" block-counter ... ...) (when org-babel-post-tangle-hook ...) path-collector)) (save-restriction (when only-this-block (unless ... ...) (save-match-data ...) (narrow-to-region ... ...)) (save-excursion (let ... ... ... ... path-collector))) org-babel-tangle(nil) call-interactively(org-babel-tangle nil nil) --8<---------------cut here---------------end--------------->8--- Regards, Bernt