diff options
| author | Rob Savoye <rob@welcomehome.org> | 2010-11-29 10:32:27 -0700 |
|---|---|---|
| committer | Rob Savoye <rob@welcomehome.org> | 2010-11-29 10:32:27 -0700 |
| commit | 47c2db981d40efc79b88dba94e29b25b50a45923 (patch) | |
| tree | 769a13072187e60f9a4e31fa250e4ca9b40999a6 /gr-run-waveform/guile/cat.scm | |
| parent | 75c52385ecc1ca66caa2986cffe9105f9532895f (diff) | |
add cat test for the new port
Diffstat (limited to 'gr-run-waveform/guile/cat.scm')
| -rw-r--r-- | gr-run-waveform/guile/cat.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gr-run-waveform/guile/cat.scm b/gr-run-waveform/guile/cat.scm index 575f1f5082..6a5a38acfa 100644 --- a/gr-run-waveform/guile/cat.scm +++ b/gr-run-waveform/guile/cat.scm @@ -6,6 +6,9 @@ (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")) |