diff options
| author | Eelco Dolstra <e.dolstra@tudelft.nl> | 2011-01-14 12:47:10 +0000 |
|---|---|---|
| committer | Eelco Dolstra <e.dolstra@tudelft.nl> | 2011-01-14 12:47:10 +0000 |
| commit | 9db190eb31d4adc412d50bc03574951f9a1f9dae (patch) | |
| tree | 788c4f95e32361f34dd309b9e82cc477dee41dbc | |
| parent | d6c8b995c5c08a6c6a6b18f0b2cf5b4b95cfc1b1 (diff) | |
| download | guix-9db190eb31d4adc412d50bc03574951f9a1f9dae.tar.gz | |
* builtins.substring: if "start" is beyond the end of the string,
return the empty string.
| -rw-r--r-- | src/libexpr/primops.cc | 2 | ||||
| -rw-r--r-- | tests/lang/eval-okay-substring.exp | 2 | ||||
| -rw-r--r-- | tests/lang/eval-okay-substring.nix | 2 |
3 files changed, 4 insertions, 2 deletions
diff --git a/src/libexpr/primops.cc b/src/libexpr/primops.cc index a4812de065..3e955ea3fe 100644 --- a/src/libexpr/primops.cc +++ b/src/libexpr/primops.cc @@ -965,7 +965,7 @@ static void prim_substring(EvalState & state, Value * * args, Value & v) if (start < 0) throw EvalError("negative start position in `substring'"); - mkString(v, string(s, start, len), context); + mkString(v, start >= s.size() ? "" : string(s, start, len), context); } diff --git a/tests/lang/eval-okay-substring.exp b/tests/lang/eval-okay-substring.exp index d936b7e96f..6aace04b0f 100644 --- a/tests/lang/eval-okay-substring.exp +++ b/tests/lang/eval-okay-substring.exp @@ -1 +1 @@ -"ooxfoobarybarzobaabb" +"ooxfoobarybarzobaabbc" diff --git a/tests/lang/eval-okay-substring.nix b/tests/lang/eval-okay-substring.nix index 184d72580c..424af00d9b 100644 --- a/tests/lang/eval-okay-substring.nix +++ b/tests/lang/eval-okay-substring.nix @@ -17,3 +17,5 @@ substring 1 2 s + substring 3 0 s + "b" + substring 3 1 s ++ "c" ++ substring 5 10 "perl" |