Permalink
Browse files

Merge pull request #1 from cgay/new-strings

Remove starts/ends-with?, which are in the new strings library.
  • Loading branch information...
2 parents 37e225d + 225429f commit 165ceea062a4dea764e9cfcee631d26856a1cc81 @cgay cgay committed May 19, 2012
Showing with 1 addition and 23 deletions.
  1. +1 −3 library.dylan
  2. +0 −20 uncommon-dylan.dylan
View
@@ -51,9 +51,7 @@ define module uncommon-dylan
<positive-integer>,
slice,
- elt,
- starts-with?,
- ends-with?;
+ elt;
end module uncommon-dylan;
View
@@ -435,26 +435,6 @@ define method slice
copy-sequence(seq, start: _bpos, end: _epos)
end;
-define method starts-with?
- (thing :: <object>, prefix :: <string>) => (yes? :: <boolean>)
- #f
-end;
-
-define method starts-with?
- (thing :: <string>, prefix :: <string>) => (yes? :: <boolean>)
- slice(thing, 0, prefix.size) = prefix
-end;
-
-define method ends-with?
- (thing :: <object>, suffix :: <string>) => (yes? :: <boolean>)
- #f
-end;
-
-define method ends-with?
- (thing :: <string>, suffix :: <string>) => (yes? :: <boolean>)
- slice(thing, -suffix.size, #f) = suffix
-end;
-
// Allow negative indexes.
// The main reason this is worth having around is for when the expression
// for getting the sequence is long. It's not useful for x because

0 comments on commit 165ceea

Please sign in to comment.