blob: 6a5a38acfa6aa78c5cb4618231d6286e56d8d435 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
;;; This is non-idiomatic, but will exercise the port...
(define (cat input-port)
(let loop ((ch (read-char input-port)))
(if (not (eof-object? ch))
(begin
(write-char ch (current-output-port))
(loop (read-char input-port))))))
(define foo (make-gnuradio-port "ice-9/boot-9.scm"))
;;(define foo (cat (make-gnuradio-port "ice-9/boot-9.scm")))
;; # Then start guile and use it
;; guile> (load "/tmp/cat.scm")
;; guile> (cat (open-file "/etc/passwd" "r"))
|
