From 6269aa26309cf98d100d7580c09ccf63b504d0d8 Mon Sep 17 00:00:00 2001
From: Ludovic Courtes
Date: Sat, 2 Jul 2005 03:51:27 +0000
Subject: First real document produced!

Lots of things, including:

* src/guile/skribilo/engine/lout.scm:  New file.

First real document produced!

git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-4
---
 src/guile/skribilo/lib.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/guile/skribilo/lib.scm')

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))
 
-- 
cgit v1.2.3