diff options
| author | Geert Janssens <janssens-geert@telenet.be> | 2013-05-21 17:23:37 +0200 |
|---|---|---|
| committer | Geert Janssens <janssens-geert@telenet.be> | 2013-05-21 17:23:37 +0200 |
| commit | 6e794da3f3d74cef1a049780d0dab40a1a4326b3 (patch) | |
| tree | cf39a833772213b6fa0f57642095052a2afad25f /Examples/guile | |
| parent | 149972542ed42753ff3d67c98c46020f7df94e5c (diff) | |
| download | swig-6e794da3f3d74cef1a049780d0dab40a1a4326b3.tar.gz | |
Guile port example - print a message to show the error is expected
Diffstat (limited to 'Examples/guile')
| -rw-r--r-- | Examples/guile/port/runme.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Examples/guile/port/runme.scm b/Examples/guile/port/runme.scm index 68e9b8e85..1a9b93038 100644 --- a/Examples/guile/port/runme.scm +++ b/Examples/guile/port/runme.scm @@ -21,6 +21,8 @@ (lambda () (print-int (current-output-port) 314159)))) (lambda args + (display "Attempting to write to a string or soft port will result in this error:") + (newline) (write args) (newline))) ;; Read from a file port. Note that it is a bad idea to mix Scheme and |