X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fviews.scm;h=bf5bc0cd288c76eb5f716b7c807cdd4b05541db0;hb=6b36df64290b8c3969fc93cbf21ee829e126baf0;hp=b86af82b70854ccf1099d9dc7078c086f724f1d4;hpb=116bad1867d3517df596dc004ef0f6e54bb7d290;p=gacela.git

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)