diff options
| author | Justin Ethier <justin.ethier@gmail.com> | 2015-01-29 22:50:45 -0500 |
|---|---|---|
| committer | Justin Ethier <justin.ethier@gmail.com> | 2015-01-29 22:50:45 -0500 |
| commit | 6748108153c1fe696f943bcef006b1db0141d8c5 (patch) | |
| tree | 5a13f9296bf06442a20bf33d7d55c55f3b6eeff5 | |
| parent | b0b2e43b3e7c837e06a22ae78ea314ecd39afe79 (diff) | |
Reduce buffer by onev3.19
| -rw-r--r-- | hs-src/Language/Scheme/Core.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/hs-src/Language/Scheme/Core.hs b/hs-src/Language/Scheme/Core.hs index 5a2076d0..eef2cd2c 100644 --- a/hs-src/Language/Scheme/Core.hs +++ b/hs-src/Language/Scheme/Core.hs @@ -1451,4 +1451,4 @@ throwErrorWithCallHistory _ e = throwError e addToCallHistory :: LispVal -> [LispVal] -> [LispVal] addToCallHistory f history | null history = [f] - | otherwise = (lastN' 10 history) ++ [f] + | otherwise = (lastN' 9 history) ++ [f] |