# HG changeset patch
# User blanchet
# Date 1376991770 -7200
# Node ID 503a26723c4f2b4b595cde59c181858614fb76ed
# Parent  7e89edba3db64dad93dadac77a9e64d45ffcfe49
tuning

diff -r 7e89edba3db6 -r 503a26723c4f src/HOL/Tools/Nitpick/kodkod.ML
--- a/src/HOL/Tools/Nitpick/kodkod.ML	Tue Aug 20 04:59:54 2013 +0200
+++ b/src/HOL/Tools/Nitpick/kodkod.ML	Tue Aug 20 11:42:50 2013 +0200
@@ -881,7 +881,7 @@
 
 val scan_nat =
   Scan.repeat1 (Scan.one Symbol.is_ascii_digit)
-  >> (the o Int.fromString o space_implode "")
+  >> (the o Int.fromString o implode)
 val scan_rel_name =
   ($$ "s" |-- scan_nat >> pair 1
    || $$ "r" |-- scan_nat >> pair 2