Improve error message for dup'd type field names.

Liozou · Aug 28, 2015 · 327bb28 · 327bb28
1 parent 099dfd1
commit 327bb28
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/julia-syntax.scm b/src/julia-syntax.scm
@@ -935,6 +935,8 @@
  (default-inner-ctors name field-names field-types (null? params) locs)
  defs))
  (min-initialized (min (ctors-min-initialized defs) (length fields))))
+ (let ((dups (has-dups field-names)))
+ (if dups (error (string "duplicate field name: \"" (car dups) "\" is not unique"))))
  (for-each (lambda (v)
  (if (not (symbol? v))
  (error (string "field name \"" (deparse v) "\" is not a symbol"))))