More portable error reporting.
----------------------------------------------------------------------
U mlton/trunk/ide/emacs/esml-gen.el
----------------------------------------------------------------------
Modified: mlton/trunk/ide/emacs/esml-gen.el
===================================================================
--- mlton/trunk/ide/emacs/esml-gen.el 2007-02-08 13:00:22 UTC (rev 5153)
+++ mlton/trunk/ide/emacs/esml-gen.el 2007-02-08 13:43:01 UTC (rev 5154)
@@ -94,7 +94,7 @@
(let* ((fields (esml-extract-field-names pattern-or-type))
(n (length fields)))
(if (< n 2)
- (error 'invalid-argument "Record must have at least two fields.")
+ (esml-error "%s" "Record must have at least two fields")
(let ((fields (sort fields 'string-lessp))
(start (point)))
(labels ((format-fields
@@ -154,7 +154,7 @@
(interactive "nMaximum number of fields [2-100]: ")
(if (not (and (<= 2 n)
(<= n 100)))
- (error 'invalid-argument "Number of fields must be between 2 and 100.")
+ (esml-error "%s" "Number of fields must be between 2 and 100")
(labels ((format-fields
(fmt n)
(with-temp-buffer