diff options
| author | Pierre-Marie Pédrot | 2014-07-22 13:53:50 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-07-22 13:53:50 +0200 |
| commit | 062d07eb5446c1032fda232b9a09e20e5410dd92 (patch) | |
| tree | 807b805fc0eebb3c8f0f27b9091ab751778b70d4 /lib/iStream.ml | |
| parent | 3007da7147d86f2e85347b9e70c1faea7d2eed06 (diff) | |
Adding a "is_val" primitive to IStream.
Diffstat (limited to 'lib/iStream.ml')
| -rw-r--r-- | lib/iStream.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/iStream.ml b/lib/iStream.ml index 36b9c43ad0..ef69eaf2b0 100644 --- a/lib/iStream.ml +++ b/lib/iStream.ml @@ -38,6 +38,8 @@ let is_empty s = match Lazy.force s with let peek = Lazy.force +let is_val = Lazy.is_val + let rec of_list = function | [] -> empty | x :: l -> cons x (of_list l) |