Welcome to the CHICKEN Scheme pasting service

extracting FILE* from port added by Kooda on Tue Jul 2 08:41:13 2019

(import (chicken foreign))

(define (get-c-file port)
  (define extract-c-file
    (foreign-lambda* c-pointer ((scheme-object port))
                     "C_return(C_block_item(port, 0));"))
  (assert (port? port))
  (assert (eq? 'stream (##sys#slot port 7)))
  (extract-c-file port))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which module provides `define-foreign-type'?
Visually impaired? Let me spell it for you (wav file) download WAV