src/HOL/Tools/Nitpick/kodkod.ML
changeset 53093 503a26723c4f
parent 50488 1b3eb579e08b
child 54816 10d48c2a3e32
--- 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