Re: Bug#129650: ocaml: error byte-compiling :-(

[Ian Zimmerman <itz@speakeasy.org>]

itz> I get this while installing ocaml 3.04-4:
itz> 
itz> While compiling caml-eval-buffer in file /usr/share/emacs/20.7/site-lisp/ocaml/caml.el:
itz> ** malformed let binding: (setq error (caml-eval-phrase 500 (point-min) (if arg (point-max) here)))
itz> ** Attempt to let-bind nonvariable (error)
itz> 
itz> not your fault of course.

Sven> Please send me the patch and i will check and apply it.

Here's the patch:

*** caml.el.orig	Fri Jan 18 08:45:20 2002
--- caml.el	Fri Jan 18 08:47:50 2002
***************
*** 507,517 ****
  With prefix arg, evaluate past the whole buffer, no stopping at
  the current point."
    (interactive "p")
!   (let ((here (point)) ((error))
      (goto-char (point-min))
!     (setq error
!           (caml-eval-phrase 500 (point-min) (if arg (point-max) here))))
!     (if error (set-mark (error)))
      (goto-char here)))
  
  (defun caml-show-subshell ()
--- 507,517 ----
  With prefix arg, evaluate past the whole buffer, no stopping at
  the current point."
    (interactive "p")
!   (let ((here (point)) (errpt))
      (goto-char (point-min))
!     (setq errpt
!           (caml-eval-phrase 500 (point-min) (if arg (point-max) here)))
!     (if errpt (set-mark errpt))
      (goto-char here)))
  
  (defun caml-show-subshell ()


I can only dream how this completely wrong code got in ...

Copied to the list, but please note I am not subscribed to it now.

-- 
Ian Zimmerman, Oakland, California, U.S.A.
GPG: 433BA087  9C0F 194F 203A 63F7 B1B8  6E5A 8CA3 27DB 433B A087
In his own soul a man bears the source
from which he draws all his sorrows and his joys.
Sophocles.