Changeset 25836 in project

Timestamp:

01/28/12 00:52:48 (9 years ago)

Author:

Mario Domenech Goulart

Message:

g2: stubs for gd-related procedures for when libgd is not available.

File:

• release/4/g2/trunk/g2.scm (modified) (1 diff)

release/4/g2/trunk/g2.scm

@@ -220 +220 @@
 <#
 
+(cond-expand 
+ ((not have-gd)
+  (define (stub loc)
+    (lambda _
+      (error loc "This procedure requires libgd to be installed")))
+  (define g2:gd-png (stub 'g2:gd-png))
+  (define g2:gd-jpeg (stub 'g2:gd-jpeg))
+  (define g2:open-gd (stub 'g2:open-gd))))
+
 ); end module