From: Javier Sancho <jsf@jsancho.org>
Date: Tue, 21 Aug 2012 16:14:30 +0000 (+0200)
Subject: Minor changes
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=6b36df64290b8c3969fc93cbf21ee829e126baf0;p=gacela.git

Minor changes
---

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)