diff options
Diffstat (limited to 'gr-run-waveform/guile/cat.scm')
| -rw-r--r-- | gr-run-waveform/guile/cat.scm | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/gr-run-waveform/guile/cat.scm b/gr-run-waveform/guile/cat.scm deleted file mode 100644 index 6a5a38acf..000000000 --- a/gr-run-waveform/guile/cat.scm +++ /dev/null @@ -1,15 +0,0 @@ -;;; 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")) - |