DEVELOPMENT: enable profile in glcore and add comment

Author: 0-8-15

modules/ln_glcore/glcore.scm

@@ -37,9 +37,26 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 |#
 ;; Absolutely minimal OpenGL (ES) interface
 
-(define glcore:debuglevel 0)
-(define (glcore:log level . x)
-   (if (>= glcore:debuglevel level) (apply log-system (append (list "glcore: " x)))))
+;;* Compiletime
+
+;#| ;; enable manually in source
+(define-cond-expand-feature profile)
+;;|#
+
+(cond-expand
+ (debug
+  (define glcore:debuglevel 0)
+  (define (glcore:log level . x)
+    (if (>= glcore:debuglevel level) (apply log-system (append (list "glcore: " x))))))
+ (else))
+
+(cond-expand
+ (profile ;; ignore even when otherwise in `debug` mode
+  (define-macro (glcore:log . ignored) #!void))
+ (debug) ;; defined by previous `debug` expansion
+ (else (define-macro (glcore:log . ignored) #!void)))
+
+;;* Runtime
 
 ;; ----------------------------------
 ;; Initialization
@@ -405,14 +422,15 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 (define (_glCoreTextureBind t)
   (glcore:log 5 "_glCoreTextureBind")
   (let ((entry (table-ref glCore:textures t #f)))
-  (if entry (begin
-    (if (not (vector-ref entry 0)) (_glCoreTextureInit t))
-    (let ((tx (u32vector-ref (vector-ref entry 1) 0)))
-      (if (not (= glCore:curtexture tx)) (begin
-        (glBindTexture GL_TEXTURE_2D tx)
-        (set! glCore:curtexture tx))))
-    ) (log-error "glCoreTextureBind: unbound index " t)
- )))
+    (if entry
+        (begin
+          (unless (vector-ref entry 0) (_glCoreTextureInit t)) ;; cache texture `t`
+          (let ((tx (u32vector-ref (vector-ref entry 1) 0)))
+            (if (not (= glCore:curtexture tx))
+                (begin
+                  (glBindTexture GL_TEXTURE_2D tx)
+                  (set! glCore:curtexture tx)))))
+        (log-error "glCoreTextureBind: unbound index " t))))
 
 (define (_glCoreTextureInit t)
   (glcore:log 5 "_glCoreTextureInit")