Welcome to the CHICKEN Scheme pasting service

ponk% ./chicken-test-0.scm
ok

Error: (/) division by zero

	Call history:

	<syntax>	  (define (fuh) (/ 3 0))
	<syntax>	  (##core#set! fuh (##core#lambda () (/ 3 0)))
	<syntax>	  (##core#lambda () (/ 3 0))
	<syntax>	  [fuh] (##core#begin (/ 3 0))
	<syntax>	  [fuh] (/ 3 0)
	<syntax>	  (display "ok\n")
	<eval>	  (display "ok\n")
	<syntax>	  (fuh)
	<eval>	  (fuh)
	<eval>	  [fuh] (/ 3 0)	<--
ponk% 
ponk% 
ponk% 
ponk% ./sash-test-0.scm
ok
*error*
  #<condition

    &assertion (&violation &serious)
    &who /
    &message undefined for 0
    &irritants (3 0)
  >

stack trace:
  [1] fuh
    src: (/ 3 0)
    "./sash-test-0.scm":7
  [2] load
ponk% 

#! /bin/sh
#| -*- scheme -*-
exec csi -s $0 "$@"
|#

(define (fuh)
  (/ 3 0))

(display "ok\n")
(fuh)