$ /usr/local/chicken-4.9.0/bin/csc x.scm Warning: at toplevel: assignment of value of type `list' to toplevel variable `read' does not match declared type `(procedure read (#!optional input-port) *)' Warning: redefinition of standard binding: read y.scm: ----- (use posix) (define fileno (port->fileno (open-input-file "lobby.css"))) (define r (file-read fileno 95)) (pp r) (pp (string-length (car r))) ----- $ /usr/local/chicken-4.9.0/bin/csc x.scm $ /usr/local/chicken-4.9.0/bin/csi -ns x.scm ("(use awful)\n\n(enable-sxml #t)\n\n(define-page (main-page-path)\n (lambda ()\n \"Hello there!\"))\n" 95) 95