--- a/src/Pure/sign.ML Tue Mar 09 12:05:07 1999 +0100
+++ b/src/Pure/sign.ML Tue Mar 09 12:06:09 1999 +0100
@@ -114,7 +114,7 @@
val add_trfunsT:
(string * (bool -> typ -> term list -> term)) list -> sg -> sg
val add_tokentrfuns:
- (string * string * (string -> string * int)) list -> sg -> sg
+ (string * string * (string -> string * real)) list -> sg -> sg
val add_trrules: (xstring * string) Syntax.trrule list -> sg -> sg
val add_trrules_i: ast Syntax.trrule list -> sg -> sg
val add_path: string -> sg -> sg