diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/txr-case.tl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/share/txr/stdlib/txr-case.tl b/share/txr/stdlib/txr-case.tl index 4f51ea48..244c58b7 100644 --- a/share/txr/stdlib/txr-case.tl +++ b/share/txr/stdlib/txr-case.tl @@ -65,4 +65,6 @@ (defmacro txr-case (input-expr . clauses) (let ((input (gensym "input-"))) ^(let ((,input ,input-expr)) + (if (streamp ,input) + (set ,input (get-lines ,input))) (txr-case-impl ,input ,*clauses)))) |