mescc: cleanups.
[mes.git] / module / language / c99 / info.mes
index faff24698afb7c27dfc1eb857b779fa0584156d9..bb8e996ab75363bd839c0170acf8334ade8e7864 100644 (file)
@@ -23,6 +23,8 @@
 ;;; Code:
 
 (mes-use-module (srfi srfi-9))
-(define define-immutable-record-type define-record-type)
+(define-macro (define-immutable-record-type type constructor+params predicate . fields)
+  `(define-record-type ,type ,constructor+params ,predicate ,@fields))
 
 (include-from-path "language/c99/info.scm")
+