* Unquote uses of `begin' in transformed Elisp code.

diff --git a/lang/elisp/ChangeLog b/lang/elisp/ChangeLog
index f1ed71d..461436d 100644 (file)
--- a/lang/elisp/ChangeLog
+++ b/lang/elisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-01  Neil Jerram  <neil@ossau.uklinux.net>
+
+       * transform.scm (transformer), primitives/syntax.scm (let*):
+       Unquote uses of `begin' in transformed code.
+
 2002-01-29  Neil Jerram  <neil@ossau.uklinux.net>
 
        * transform.scm (transform-1, transform-2, transform-3,

diff --git a/lang/elisp/primitives/syntax.scm b/lang/elisp/primitives/syntax.scm
index ac09514..3bf5a90 100644 (file)
--- a/lang/elisp/primitives/syntax.scm
+++ b/lang/elisp/primitives/syntax.scm
@@ -332,7 +332,7 @@
       (procedure->memoizing-macro
         (lambda (exp env)
          (if (null? (cadr exp))
-             `(begin ,@(map transformer (cddr exp)))
+             `(,begin ,@(map transformer (cddr exp)))
              (car (let loop ((bindings (cadr exp)))
                     (if (null? bindings)
                         (map transformer (cddr exp))

diff --git a/lang/elisp/transform.scm b/lang/elisp/transform.scm
index ec1639d..0bb28ea 100644 (file)
--- a/lang/elisp/transform.scm
+++ b/lang/elisp/transform.scm
@@ -25,7 +25,7 @@
         (case (car x)
           ((@fop @bind define-module use-modules use-syntax) x)
           ; Escape to Scheme syntax
-          ((scheme) (cons 'begin (cdr x)))
+          ((scheme) (cons begin (cdr x)))
           ; Should be handled in reader
           ((quote function) `(,quote ,@(cars->nil (cdr x))))
           ((quasiquote) (m-quasiquote x '()))