Guile interpeter crash

[Dmitry Bogatov <KAction@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 1136 bytes --]


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 <KAction@gnu.org>,
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.

[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]