diff options
| author | Neil Jerram <neil@ossau.uklinux.net> | 2010-03-16 21:35:29 +0000 |
|---|---|---|
| committer | Neil Jerram <neil@ossau.uklinux.net> | 2010-03-16 21:35:29 +0000 |
| commit | d3fd65adfb9daec00aef61dfc7709f62030d25b5 (patch) | |
| tree | ea7f1fd8fe26a64c7e238a71f32d9c3366fb622d /hello-test.scm | |
| parent | c45edd47ed07e452d8e529615e36289549586d0a (diff) | |
| download | guile-wip-utf16-debugging.tar.gz | |
Miscellaneous testing fileswip-utf16-debugging
Diffstat (limited to 'hello-test.scm')
| -rw-r--r-- | hello-test.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/hello-test.scm b/hello-test.scm new file mode 100644 index 000000000..56c37d4e1 --- /dev/null +++ b/hello-test.scm @@ -0,0 +1,9 @@ +(use-modules (ice-9 rdelim)) +(for-each (lambda (i) + (write (with-input-from-file "/home/neil/google-neil.csv"; "hello.txt" + (lambda () + (set-port-encoding! (current-input-port) "UTF16LE") + (read-line)))) + (newline)) + (iota 5)) + |