From 6b36df64290b8c3969fc93cbf21ee829e126baf0 Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Tue, 21 Aug 2012 18:14:30 +0200
Subject: [PATCH] Minor changes

---
 src/views.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/views.scm b/src/views.scm
index b86af82..bf5bc0c 100644
--- a/src/views.scm
+++ b/src/views.scm
@@ -22,6 +22,8 @@
   #:use-module (ice-9 optargs))
 
 
+;;; Views
+
 (define default-view (make-hash-table))
 
 (define* (draw-meshes #:optional (meshes (hash-map->list (lambda (k v) v) default-view)))
@@ -51,12 +53,11 @@
 		      (display ">" port))))
 		      
 
-(define mesh-constructor (record-constructor mesh-type))
 (define mesh? (record-predicate mesh-type))
 
 (define* (mesh proc #:optional mesh-type)
   (apply
-   mesh-constructor
+   (record-constructor mesh-type)
    (let ((px 0) (py 0) (pz 0)
 	 (ax 0) (ay 0) (az 0)
 	 (rx 0) (ry 0) (rz 0)
-- 
2.39.5