Minor changes

diff --git a/src/views.scm b/src/views.scm
index b86af82b70854ccf1099d9dc7078c086f724f1d4..bf5bc0cd288c76eb5f716b7c807cdd4b05541db0 100644 (file)
--- a/src/views.scm
+++ b/src/views.scm
@@ -22,6 +22,8 @@
   #:use-module (ice-9 optargs))
 
 
   #: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)))
 (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))))
                      
 
                      (display ">" port))))
                      
 

-(define mesh-constructor (record-constructor mesh-type))

 (define mesh? (record-predicate mesh-type))
 
 (define* (mesh proc #:optional mesh-type)
   (apply
 (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)
    (let ((px 0) (py 0) (pz 0)
         (ax 0) (ay 0) (az 0)
         (rx 0) (ry 0) (rz 0)