blob: 90dd03960bc2d67662dbe92d2e36b22a5ed15fbe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(define-module (html)
#:export (parse-html)
#:re-export (write)
#:use-module (oop goops)
)
;; (setenv "LD_LIBRARY_PATH" (dirname (current-filename)))
;; exposes the parse-html symbol
(load-extension "libguile-html" "init_html")
(define (fmt-hash-table t)
`(@ ,@(hash-map->list cons t)))
(define-method (write (t <hashtable>) port)
(display (fmt-hash-table t) port))
(define-method (display (t <hashtable>) port)
(display (fmt-hash-table t) port))
|