(system-include "glib.h") (system-include "string.h") (declare/external (sort-array array :: (ptr GPtrArray) cmp :: (ptr (func (ptr (const char)) (ptr (const char)) int))) :: void) (define/export (sort-nested array :: (ptr GPtrArray)) :: void (define (cmp a b) (strcmp b a)) (sort-array array cmp)) (define/export (sort-anon array :: (ptr GPtrArray)) :: void (sort-array array (lambda (a b) (strcmp b a))))