Skip to content

Instantly share code, notes, and snippets.

@leque

leque/partcont+call-with-file.scm

Created June 21, 2015 15:00
Show Gist options
  • Save leque/9025d466bfcb2836a3b1 to your computer and use it in GitHub Desktop.
Save leque/9025d466bfcb2836a3b1 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
partcont+call-with-file.scm
(use srfi-1)
(use gauche.partcont)
(define (main args)
(reset
(let* ((p1 (shift k (call-with-input-file (second args) k)))
(p2 (shift k (call-with-output-file (third args) k))))
(copy-port p1 p2))))
;; -> "./vminsn.scm", line 1375: Assertion failed: SCM_PAIRP((vm)->handlers)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment