| changeset 33957 | e9afca2118d4 |
| parent 33955 | fff6f11b1f09 |
| child 37216 | 3165bc303f66 |
--- a/src/Pure/General/scan.ML Tue Nov 24 17:28:44 2009 +0100 +++ b/src/Pure/General/scan.ML Wed Nov 25 09:13:46 2009 +0100 @@ -221,7 +221,7 @@ fun trace scan xs = let val (y, xs') = scan xs - in ((y, (uncurry take) (length xs - length xs', xs)), xs') end; + in ((y, take (length xs - length xs') xs), xs') end; (* stopper *)