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 <[email protected]>,
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.
pgpLAUpbSZp6w.pgp
Description: PGP signature
