diff options
Diffstat (limited to 'src/interp/io.boot')
-rw-r--r-- | src/interp/io.boot | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/interp/io.boot b/src/interp/io.boot index 1e94a4be..17fa032b 100644 --- a/src/interp/io.boot +++ b/src/interp/io.boot @@ -92,3 +92,8 @@ expandLeadingTabs line == indLoc := indentationLocation line nbLoc = indLoc => line strconc(makeString(indLoc,char " "), subString(line,nbLoc)) + +findChar(c,s,k == 0) == + or/[i for i in k..maxIndex s | stringChar(s,i) = c] + + |