Guile interpeter crash

[Dmitry Bogatov]

Here is code that results crash (return 134). Hope it is interesting.

guile (GNU Guile) 2.0.9
Copyright (C) 2013 Free Software Foundation, Inc.

(define *define-count* 0)
(define-syntax define#
    (syntax-rules ()
        ((_ obj ...)
         (begin
             (set! *define-count* (1+ *define-count*))
             (define obj ...)))))
(define-syntax define
    (syntax-rules ()
        ((_ obj ...)
         (define# obj ...))))
(define# foo 2)
(display *define-count*)

$ guile --no-auto-compile crash.scm
Backtrace:
In ice-9/psyntax.scm:
  976:  19 Aborted
$ guile --auto-compile crash.scm
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling /share/home/kaction/build/crash.scm
;;; WARNING: compilation of /share/home/kaction/build/crash.scm failed:
;;; ERROR: Throw to key `vm-error' with args `(vm-run "VM: Stack overflow" ())'.
aborted

--
Best regards, Dmitry Bogatov <address@hidden>,
Free Software supporter and netiquette guardian.
        git clone git://kaction.name/rc-files.git --depth 1
        GPG: 54B7F00D
Html mail and proprietary format attachments are forwarded to /dev/null.

pgpXoM4kJUPf8.pgp
Description: PGP signature