Changeset 25836 in project


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/g2/trunk/g2.scm

    r24025 r25836  
    220220<#
    221221
     222(cond-expand
     223 ((not have-gd)
     224  (define (stub loc)
     225    (lambda _
     226      (error loc "This procedure requires libgd to be installed")))
     227  (define g2:gd-png (stub 'g2:gd-png))
     228  (define g2:gd-jpeg (stub 'g2:gd-jpeg))
     229  (define g2:open-gd (stub 'g2:open-gd))))
     230
    222231); end module
Note: See TracChangeset for help on using the changeset viewer.