[O] Tangling is broken in git master

[Bernt Hansen]

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 <address@hidden>
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