The first vaguely working version.

Patches applied:

 * lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-4
   First real document produced!


git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-8

1 files changed, 4 insertions, 3 deletions

diff --git a/src/guile/skribilo/lib.scm b/src/guile/skribilo/lib.scm
index ef8ef8d..aaf1a8f 100644
--- a/src/guile/skribilo/lib.scm
+++ b/src/guile/skribilo/lib.scm
@@ -194,8 +194,9 @@
 ;;;
 (define (%skribe-warn level file line lst)
   (let ((port (current-error-port)))
-    (format port "**** WARNING:\n")
-    (when (and file line) (format port "~a: ~a: " file line))
+    (when (and file line)
+      (format port "~a:~a: " file line))
+    (format port "warning: ")
     (for-each (lambda (x) (format port "~a " x)) lst)
     (newline port)))
 
@@ -346,7 +347,7 @@
 (define hashtable-put!		hash-set!)
 (define hashtable-update!	hash-set!)
 (define hashtable->list	(lambda (h)
-                          (map cdr (hash-table->list h))))
+                          (map cdr (hash-map->list cons h))))
 
 (define find-runtime-type	(lambda (obj) obj))