Welcome to the CHICKEN Scheme pasting service

❯ ../../chicken-6-preparation/chicken-git/bin/csi -s tcp-hammer.scm 4242 /tmp/tcp-hammer.out
port: 4242, out: /tmp/tcp-hammer.out

Error: segmentation violation

	Call history:

	tcp-hammer.scm:33	  [copy-chars!] (- || 1)
	tcp-hammer.scm:23	  [copy-chars!] (= || 0)
	tcp-hammer.scm:24	  [copy-chars!] (peek-char ||)
	tcp-hammer.scm:25	  [copy-chars!] (not (eof-object? p))
	tcp-hammer.scm:25	  [copy-chars!] (eof-object? p)
	tcp-hammer.scm:26	  [copy-chars!] (peek-char ||)
	tcp-hammer.scm:27	  [copy-chars!] (read-char ||)
	tcp-hammer.scm:28	  [copy-chars!] (eqv? || p)
	tcp-hammer.scm:28	  [copy-chars!] (eqv? c p)
	tcp-hammer.scm:31	  [copy-chars!] (write-char c #<invalid forwarded object>)
	tcp-hammer.scm:32	  [copy-chars!] (+ chars-read 1)
	tcp-hammer.scm:33	  [copy-chars!] (loop (- || 1))
	tcp-hammer.scm:33	  [copy-chars!] (- || 1)
	tcp-hammer.scm:23	  [copy-chars!] (= || 0)
	tcp-hammer.scm:46	  [drain!] (copy-gulp! (cycle gulp-sizes i) || . ���
[]
...more...
tcp-h














 	<--