blob: 53d7365257ae00b06cc8b54b91a64d94484a0b4b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
;;; Primitive export of symbols linked from C binary.
(define-module (vcomponent primitive)
#:export (%vcomponent-children
%vcomponent-push-child!
;; %vcomponent-filter-children!
%vcomponent-parent
%vcomponent-make
%vcomponent-get-type
%vcomponent-set-type!
%vcomponent-get-attribute
%vcomponent-attribute-list
%vcomponent-shallow-copy))
(setenv "LD_LIBRARY_PATH"
(string-append (dirname (dirname (dirname (current-filename))))
"/lib"))
(load-extension "libguile-calendar" "init_lib")
(define (%vcomponent-attribute-list comp)
(map car (hash-map->list cons (%vcomponent-get-hash-table comp))))
|
