[MLton-commit] r5154

Vesa Karvonen vesak at mlton.org
Thu Feb 8 05:43:02 PST 2007


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




More information about the MLton-commit mailing list