Re: begin oddities

[Marijn Schouten (hkBst)]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Bill Schottstaedt wrote:
> Is this a bug?
> 
> guile> (begin (define x 0) (+ x 1))
> 1
> 
> guile> (lambda () (begin (define x 0) (+ x 1)))
> #<procedure #f ()>
> 
> guile> (let ((f (lambda () (begin (define x 0) (+ x 1))))) (f))

Weird thing is it seems to have no problem with
(let ((f (lambda () (define x 0) (+ x 1)))) (f))

> Backtrace:
> In standard input:
>    3: 0* (let* ((f (lambda () #))) (f))
>    3: 1  [#<procedure #f ()>]
> 
> standard input:3:53: In procedure memoization in expression (f):
> standard input:3:53: In file "standard input", line 2: Mixed definitions and 
> expressio
> ns in (begin (define x 0) (+ x 1)).
> ABORT: (syntax-error)

- --
Marijn Schouten (hkBst), Gentoo Lisp project, Gentoo ML
<http://www.gentoo.org/proj/en/lisp/>, #gentoo-{lisp,ml} on FreeNode
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.9 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org

iEYEARECAAYFAkja008ACgkQp/VmCx0OL2y5QACgwoLPRQNragAepVhYga20Xx9M
XiQAoIKe9Fotg489D0If0q8HnNghLDmR
=V3t9
-----END PGP SIGNATURE-----