tuning
authorblanchet
Tue, 20 Aug 2013 11:42:50 +0200
changeset 53093 503a26723c4f
parent 53092 7e89edba3db6
child 53094 e33d77814a92
tuning
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