1 2001-10-21 Mikael Djurfeldt <mdj@linnaeus>
3 * srfi-2.scm, srfi-4.scm, srfi-8.scm, srfi-9.scm, srfi-10.scm,
4 srfi-11.scm, srfi-14.scm, srfi-16.scm: Move module the system
5 directives `export', `export-syntax', `re-export' and
6 `re-export-syntax' into the `define-module' form. This is the
7 recommended way of exporting bindings.
9 2001-09-22 Mikael Djurfeldt <mdj@linnaeus>
11 * srfi-19.scm (priv:split-real): Inserted missing call to
14 2001-09-21 Rob Browning <rlb@defaultvalue.org>
16 * srfi-14.h (SCM_CHARSET_GET): need 1L, not just 1 in "<<".
18 * srfi-14.c (SCM_CHARSET_SET): need 1L, not just 1 in "<<".
19 (scm_char_set_hash): val needs to be long, not just unsigned.
20 (scm_char_set): need 1L, not just 1 in "<<".
21 (scm_list_to_char_set): need 1L, not just 1 in "<<".
22 (scm_list_to_char_set_x): need 1L, not just 1 in "<<".
23 (scm_list_to_char_set_x): FUNC_NAME was wrong - added a _x.
24 (scm_string_to_char_set): string length var needed to be
26 (scm_string_to_char_set): need 1L, not just 1 in "<<".
27 (scm_string_to_char_set_x): string length var needed to be
29 (scm_string_to_char_set_x): need 1L, not just 1 in "<<".
30 (scm_char_set_filter): need 1L, not just 1 in "<<".
31 (scm_char_set_filter_x): need 1L, not just 1 in "<<".
32 (scm_ucs_range_to_char_set): need 1L, not just 1 in "<<".
33 (scm_ucs_range_to_char_set_x): need 1L, not just 1 in "<<".
34 (scm_char_set_adjoin): need 1L, not just 1 in "<<".
35 (scm_char_set_delete): need 1L, not just 1 in "<<".
36 (scm_char_set_adjoin_x): need 1L, not just 1 in "<<".
37 (scm_char_set_delete_x): need 1L, not just 1 in "<<".
39 2001-09-12 Gary Houston <ghouston@arglist.com>
41 * srfi-1.scm (filter): change "caller" to "filter" in check-arg-type.
43 2001-08-31 Dirk Herrmann <D.Herrmann@tu-bs.de>
45 * srfi-1.scm, srfi-13.scm: Remove the defines that were needed to
46 trick export from the beginning of the files.
48 2001-08-25 Thien-Thi Nguyen <ttn@revel.glug.org>
50 * srfi-19.scm (add-duration): Fix bug: Call `add-duration!' w/
51 two args. Thanks to Alex Shinn.
53 2001-08-25 Marius Vollmer <mvo@zagadka.ping.de>
55 * Makefile.am (AUTOMAKE_OPTIONS): Change "foreign" to "gnu".
57 2001-08-24 Thien-Thi Nguyen <ttn@revel.glug.org>
59 * srfi-13.h (scm_string_map, scm_string_map_x,
60 scm_string_for_each): Reverse order of first two args.
61 (scm_string_for_each_index): New proc.
63 * srfi-13.c (scm_string_for_each): Reverse order of first 2 args.
64 (scm_string_for_each_index): New func.
66 * srfi-13.scm (string-for-each-index): New exported proc.
70 2001-08-22 Mikael Djurfeldt <mdj@linnaeus.mit.edu>
72 * srfi-13.c (string-map): Swapped order of string and proc args to
73 conform with the srfi. (Thanks to Alex Shinn.)
75 2001-08-05 Gary Houston <ghouston@arglist.com>
77 * srfi-1.scm (check-arg-type, non-negative-integer?): a couple of new
79 (list-tabulate, iota): check for bad arguments that otherwise
81 (filter): check for proper list, to avoid infinite recursion on
84 2001-08-04 Gary Houston <ghouston@arglist.com>
86 * srfi-1.scm (filter): replaced with a tail-recursive version.
87 (remove): implement using filter, to make it tail-recursive.
89 2001-07-31 Gary Houston <ghouston@arglist.com>
91 * srfi-14.c (scm_char_set_diff_plus_intersection): wasn't correctly
92 accounting for the (char-set-union cs2...) in the spec. i.e.,
93 (char-set-diff+intersection a) -> copy-of-a, empty-set
94 and the following are equivalent:
95 (char-set-diff+intersection a (char-set #\a) (char-set #\b))
96 (char-set-diff+intersection a (char-set #\a #\b))
98 (scm_char_set_xor_x): disabled the side-effecting code, since it
99 gives inconsistent results to scm_char_set_xor for the case
100 (char-set-xor! a a a).
102 (scm_char_set_diff_plus_intersection_x): added cs2 argument, since
103 two arguments are compulsory in final spec. also similar changes
104 as for scm_char_set_diff_plus_intersection.
105 * srfi-14.h (scm_char_set_diff_plus_intersection_x): added cs2.
107 2001-07-22 Gary Houston <ghouston@arglist.com>
109 * srfi-14.c (scm_char_set_intersection, scm_char_set_xor): remove
110 the compulsory cs1 arguments: all args are optional in final spec.
112 * srfi-14.h: declarations updated.
114 2001-07-18 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
116 * srfi-11.scm, srfi-8.scm: Update copyright notice.
118 2001-07-17 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
120 * srfi-14.c: Okay. Now I got it. Really. This time it's fixed.
123 * srfi-19.scm: Define `current-time' before exporting it.
125 2001-07-17 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
127 * srfi-14.c: Fix for bug caused by brain-malfunctioning on my
128 side. Bit sets were handled wrong because I couldn't tell bit
129 counts from byte counts. Also, the bit array should be 256 / 8
130 bytes long. Thank you, Gary!
132 Removed unnecessary protoype for scm_char_set_copy.
134 2001-07-16 Gary Houston <ghouston@arglist.com>
136 * srfi-14.scm: export string->char-set!, not string-char-set!.
138 * srfi-14.c (scm_char_set_ref, scm_char_set_cursor_next,
139 scm_end_of_char_set_p): reject negative cursor values.
140 (scm_list_to_char_set, scm_list_to_char_set_x): when reporting
141 type error in list component, omit the position (was always 1).
143 2001-07-16 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
145 (scm_char_set_map): Bug-fix: char-set-map was modifying the
146 argument instead of the return value.
148 2001-07-16 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
150 * srfi-14.c: Allocate correct memory size for charsets (32 bytes),
151 use this value for initializing and comparing charsets.
152 (scm_char_set_hash): Use ``better'' hash algorithm which produces
155 2001-07-15 Gary Houston <ghouston@arglist.com>
157 * srfi-14.c (scm_char_set_hash): recognise 0 instead of #f in the
158 opt arg to give default bound, as in final spec. don't allow
160 (scm_char_set_hash): bug fix: was overrunning the buffer and
161 calculating based on garbage.
162 (scm_char_set_eq, scm_char_set_leq): fix argument number in error
163 reporting: wasn't incremented due to macro coding.
164 (scm_char_set): report argument number in error reporting: was
165 hard coded to 1. remove a couple of local variables.
167 2001-07-13 Marius Vollmer <mvo@zagadka.ping.de>
169 * srfi-2.scm (and-let*): Use `re-export-syntax' instead of
172 2001-07-11 Gary Houston <ghouston@arglist.com>
174 * srfi-14.c (s_scm_char_set_eq): bug fix: (char-set=) should
175 return #t instead of giving wrong-number-of-arguments . take a
176 single "rest" argument. use memcmp instead of a loop to compare
178 (s_scm_char_set_leq): similarly, (char-set<=) should return #t.
179 take a single "rest" argument.
180 srfi-14.h: update the declarations.
182 2001-07-09 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
186 2001-07-06 Gary Houston <ghouston@arglist.com>
188 * srfi-1.scm (iota, map, for-each, list-index, member, delete,
189 delete!, assoc): roll back the previous change. instead place
190 dummy definitions in a deprecated block at the beginning as in
193 2001-07-06 Rob Browning <rlb@defaultvalue.org>
195 * srfi-19.scm (priv:locale-reader): don't need open-output-string.
197 2001-07-03 Gary Houston <ghouston@arglist.com>
199 * srfi-1.scm (iota, map, for-each, list-index, member, delete,
200 delete!, assoc): don't export until the new bindings have been
201 created. otherwise "export" thinks they are being re-exported and
202 a deprecation warning is produced.
203 (map-in-order): defined and exported, to support lists of unequal
206 2001-07-03 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
208 * srfi-1.scm (list-tabulate): Do not go into infinite loop for
209 invalid arguments. Same fix for several other procedures (do not
210 use zero?, use <= 0).
212 2001-07-02 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
214 * srfi-1.scm: Replaced calls to `map' in several procedures to
216 (map, for-each): New procedures, extended from R5RS.
218 2001-06-28 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
220 * srfi-4.c: Minor cleanups.
222 * srfi-14.c (scm_char_set_fold, scm_char_set_unfold)
223 (scm_char_set_unfold_x, scm_char_set_for_each)
224 (scm_char_set_map, scm_char_set_filter)
225 (scm_char_set_filter_x, scm_char_set_count)
226 (scm_char_set_every, scm_char_set_any): Replace calls to
227 scm_apply() with the corresponding scm_call_N() functions.
229 * srfi-14.c (scm_char_set_ref, scm_char_set_cursor_next)
230 (scm_char_set_unfold, scm_char_set_unfold_x)
231 (scm_char_set_map, scm_char_set_diff_plus_intersection)
232 (scm_char_set_diff_plus_intersection_x): Replace deprecated macros
233 SCM_LISTN with calls to scm_list_N().
235 * srfi-13.c (scm_string_tabulate, scm_string_map)
236 (scm_string_map_x, scm_string_unfold)
237 (scm_string_unfold_right): Replace deprecated macros SCM_LISTN
238 with calls to scm_list_N().
240 * srfi-13.c (scm_string_any, scm_string_every),
241 (scm_string_tabulate, scm_string_trim),
242 (scm_string_trim_right, scm_string_trim_both),
243 (scm_string_compare, scm_string_compare_ci),
244 (scm_string_indexS, scm_string_index_right),
245 (scm_string_skip, scm_string_skip_right, scm_string_count),
246 (scm_string_map, scm_string_map_x, scm_string_fold),
247 (scm_string_fold_right, scm_string_unfold),
248 (scm_string_unfold_right, scm_string_for_each),
249 (scm_string_filter, scm_string_delete): Replace calls to
250 scm_apply() with the corresponding scm_call_N() functions.
252 2001-06-27 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
254 * Makefile.am: Added SRFI-4 files in various places.
256 * srfi-4.c, srfi-4.h, srfi-4.scm: New files implementing SRFI-4.
258 2001-06-26 Dirk Herrmann <D.Herrmann@tu-bs.de>
260 * srfi-13.c (scm_string_copyS, scm_string_take, scm_string_drop,
261 scm_string_take_right, scm_string_drop_right, scm_string_trim,
262 scm_string_trim_right, scm_string_trim_both, scm_string_tokenize):
263 Use scm_mem2string instead of scm_makfromstr.
265 (scm_reverse_list_to_string, string_titlecase_x): Prefer
266 !SCM_<pred> over SCM_N<pred>.
268 2001-06-25 Marius Vollmer <mvo@zagadka.ping.de>
270 * srfi-8.scm: Use `re-export-syntax' to correctly re-export
273 2001-06-18 Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de>
275 The SRFI-19 implementation was completely broken. Already the
276 reference implementation did not handle DST and time zones
277 properly and relied on non-R5RS-isms like passing reals to
278 `quotient'. For Guile, some additional fixes were needed because
279 of the incomplete numeric tower implementation. See also
282 * srfi-19.scm (date-zone-offset): Fixed typo in export clause.
283 (add-duration): Renamed from priv:add-duration.
284 (priv:time-normalize!): Handle fractional nanoseconds; remove
285 duplicate definition.
286 (priv:current-time-tai): Fixed typo.
287 (time=?, time<=?): Fixed typos.
288 (time-tai->time-utc, time-utc->time-tai,
289 time-utc->time-monotonic): Use make-time-unnormalized instead of
290 make-time when uninitialized time fields are used.
291 (set-date-nanosecond!, set-date-second!, set-date-minute!,
292 set-date-hour!, set-date-day!, set-date-month!, set-date-year!,
293 set-date-zone-offset!): Define.
294 (priv:local-tz-offset): Take an extra argument in order to handle
296 (time-utc->date, time-tai->date, time-monotonic->date): Handle the
297 changed signature of priv:local-tz-offset. Don't pass non-integer
298 arguments to quotient (non-R5RS, not supported by Guile).
299 (date->time-utc): Ensure that seconds in a date structure are
300 always exact integers. Handle DST properly.
301 (current-date, julian-day->date, modified-julian-day->date):
302 Handle the changed signature of priv:local-tz-offset.
303 (julian-day->time-utc): Reverted earlier inexact->exact hack;
304 make-time now handles inexact arguments.
305 (priv:locale-print-time-zone): At least print the numerical time
307 (priv:integer-reader): Fixed named let iteration.
308 (priv:read-directives): Use set-date-month! instead of
309 priv:set-date-month! etc.
310 (string->date): Handle DST properly.
312 2001-06-14 Marius Vollmer <mvo@zagadka.ping.de>
314 * srfi-13.scm: Prevent `export' from re-exporting core bindings.
316 2001-06-07 Dirk Herrmann <D.Herrmann@tu-bs.de>
318 * srfi-14.c (charset_print): Mark unused parameters with
321 2001-06-07 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
323 * srfi-1.scm (fold, fold-pair): Fixed a buggy call to apply.
324 (delete-duplicates): Now the first occurrence of an element is
325 retained, as required.
326 (member, assoc): Fixed wrong order of equality predicate
329 2001-06-06 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
333 * srfi-1.scm: New file.
335 2001-06-04 Marius Vollmer <mvo@zagadka.ping.de>
337 Added exception notice to all files.
339 2001-05-31 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
341 * srfi-14.scm, srfi-13.scm: Use `load-extension' for loading the
344 2001-05-31 Michael Livshin <mlivshin@bigfoot.com>
346 * Makefile.am (MKDEP): copied from libguile/Makefile.am, just in
348 (CLEANFILES): added *.x (and removed from DISTCLEANFILES)
350 2001-05-28 Michael Livshin <mlivshin@bigfoot.com>
352 * srfi-19.scm: removed a stray open parenthesis. (thanks to
353 Matthias Köppe for the report).
355 2001-05-23 Rob Browning <rlb@cs.utexas.edu>
357 * srfi-19.scm (:optional): renamed to optional to avoid reader
358 keywords conflict. Time passes... Removed :optional altogether
359 and just handle optional args directly. Thanks to Matthias Koeppe
360 for the report of this and the two bits below.
361 (priv:decode-julian-day-number): add inexact->exact for truncate
363 (time-utc->date): add inexact->exact and floor so quotient will
366 2001-05-22 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
368 * README: Update, document available SRFIs.
370 2001-05-21 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
372 * srfi-19.scm, srfi-17.scm, srfi-16.scm, srfi-14.scm, srfi-13.scm,
373 srfi-11.scm, srfi-10.scm, srfi-9.scm, srfi-8.scm, srfi-6.scm,
374 srfi-2.scm: Use `cond-expand-provide' for providing features to
377 2001-05-20 Marius Vollmer <mvo@zagadka.ping.de>
379 * srfi-14.c (scm_c_init_srfi_14): Added "int" to declaration of
382 2001-05-19 Marius Vollmer <mvo@zagadka.ping.de>
384 Avoid using module operations from C.
386 * srfi-13.c (scm_init_srfi_13_14): Removed.
387 * srfi-14.h, srfi-14.c (scm_c_init_srfi_14): New. Contains
388 initializations needed by C clients of srfi-14.
389 (scm_init_srfi_13, scm_init_srfi_14): Call it.
390 * srfi-13.scm: Call "scm_init_srfi_13" instead of
391 "scm_init_srfi_13_14".
392 * srfi-14.scm: Call "scm_init_srfi_14" instead of
393 "scm_init_srfi_13_14".
395 2001-05-16 Rob Browning <rlb@cs.utexas.edu>
397 * srfi-19.scm (priv:integer-reader-exact): minor cleanups.
399 2001-05-14 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
401 * Makefile.am (srfi_DATA): Added srfi-16.scm.
403 * srfi-16.scm: New file.
405 2001-05-10 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
407 * srfi-13.c (scm_string_delete): Logic was inversed for charset.
410 2001-05-08 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
412 * srfi-13.c (scm_string_copyS): Fixed nasty bug.
414 2001-05-05 Rob Browning <rlb@cs.utexas.edu>
416 * Makefile.am (srfi_DATA): added srfi-19.scm.
418 * srfi-19.scm: New file - time/date SRFI. Thanks to Will
421 2001-05-02 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
423 * srfi-14.c, srfi-13.c: Added @bullet to various @itemize lists.
425 * srfi-10.scm: Typo fix.
427 2001-05-02 Rob Browning <rlb@cs.utexas.edu>
429 * srfi-11.scm (let-values): fix (a b c . d) case. Thanks Martin.
431 2001-05-02 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
433 * Makefile.am (srfi_DATA): Added srfi-10.scm and srfi-17.scm.
435 * srfi-10.scm: New file.
437 * srfi-17.scm: New file, contributed by Matthias Koeppe. Thanks a
439 Added `Commentary:' tag.
441 * srfi-9.scm: Added `Commentary:' tag.
443 2001-04-27 Rob Browning <rlb@cs.utexas.edu>
446 (scm_reverse_string_concatenate): renamed to
447 scm_string_concatentate_reverse.
448 (scm_reverse_string_concatenate_shared): renamed to
449 scm_string_concatenate_reverse_shared.
451 2001-04-27 Gary Houston <ghouston@arglist.com>
453 * srfi-13.c (scm_init_srfi_13), srfi-14.c (scm_init_srfi_14):
454 add "srfi/" to lines including .x files so they can be found
455 when build_dir != src_dir.
457 2001-04-27 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
459 * Makefile.am (srfi_DATA): Added srfi-9.scm.
461 * srfi-9.scm: New file. Exports `define-record-type'.
463 2001-04-26 Rob Browning <rlb@cs.utexas.edu>
465 * Makefile.am (srfi_DATA): added srfi-6.scm.
466 (srfi_DATA): added srfi-11.scm.
467 (srfi_DATA): added srfi-8.scm.
468 (srfi_DATA): added srfi-2.scm.
470 * srfi-11.scm: new file - exports let-values and let*-values.
472 * srfi-6.scm: new file - guile already has srfi-6 procedures
473 loaded by default, so this is a dummy file right now.
475 * srfi-8.scm: new file - exports receive.
477 * srfi-2.scm: new file - just use/export (ice-9 and-let-star)
479 2001-04-26 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
481 Changed two procedure names to match final SRFI document. Thanks
482 to Rob Browning for spotting this.
484 * srfi-13.scm (string-concatenate-reverse),
485 (string-concatenate-reverse/shared): Rename from
486 reverse-string-concatenate[/shared].
488 * srfi-13.c (scm_string_concatenate_reverse_shared): Renamed from
489 scm_reverse_string_concatenate_shared.
490 (scm_string_concatenate_reverse): Renamed from
491 scm_reverse_string_concatenate.
493 2001-04-25 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
495 * configure.in, autogen.sh: Removed.
497 * srfi-13.c (scm_string_replace): Take sizeof (char) into account
498 when using memmove().
500 * srfi-14.h: Added prototypes for all exported procedures..
502 * srfi-13.c: Include srfi-13.h
504 * srfi-13.h: New file containing the prototypes.
506 * Makefile.am: Removed guile-srfi.texi and info_TEXINFOS variable.
507 (libguile_srfi_srfi_13_14_la_SOURCES): Added srfi-14.h, so it gets
509 (libguile_srfi_srfi_13_14_la_SOURCES): Added srfi-13.h.
511 2001-04-24 Neil Jerram <neil@ossau.uklinux.net>
513 * Makefile.am: Fixed "srf-14.x" typo.
515 2001-04-24 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
517 * guile-srfi.texi: Removed, because merged with the GRM.
519 * guile-srfi.texi: The docs are now up to date with the
520 implementation and have new introductory material.
522 2001-04-23 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
524 Integrated the guile-srfi package into the Guile distribution.
526 * srfi-13.c: All procedures so specified in the SRFI now accept
527 character set arguments.
529 * Makefile.am: Snarfed some variables from the guile-readline
532 * srfi-14.c, srfi-14.h: Add prefix SCM_ to exported macros.
534 * srfi-13.scm, srfi-14.scm, srfi-13.c, srfi-14.c, srfi-14.h,
535 configure.in, Makefile.am: Added FSF copyright and Guile license
538 * srfi-13.c, srfi-14.c: Include srfi-14.h.
539 (scm_init_srfi_13_14): Initialize the complete module, if not
542 * srfi-14.h: New file.
544 * srfi-13.scm, srfi-14.scm: Load new combined library.
546 * Makefile.am: Build only one library,
547 `libguile-srfi-srfi-13-14.la'
549 2001-04-04 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
551 * guile-srfi.texi: Integrated the SRFI-14 documentation.
553 * srfi-14.c, srfi-14.scm: Made the procedures and variables
554 compliant to the final SRFI document.
556 * Renamed the package to guile-srfi.
558 2001-04-03 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
560 * NEWS: New section for 0.0.3.
562 * configure.in, README, guile-srfi-13.texi: Bumped version number
565 * Released version 0.0.2.
567 * Makefile.am: Added rules for builing the SRFI-14 library.
569 * srfi-14.c, srfi-14.scm: New files, implementing SRFI-14
570 (character set library).
572 2001-03-27 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
574 * README: Updated procedure and incompatibility list.
576 * srfi-13.c (string_upcase_x, scm_string_upcase_xS),
577 (scm_string_upcase, string_downcase_x, scm_string_downcase_xS),
578 (scm_string_downcaseS, string_titlecase_x),
579 (scm_string_titlecase_x, scm_string_titlecase),
580 (scm_string_fill_xS, scm_string_copyS, scm_string_to_listS): New
583 * srfi-13.scm: Export new case mapping procedures.
585 * guile-srfi-13.texi (What cannot be done): Removed case mapping
586 procedures from incompatibility list.
587 (Case Mapping): New section for case mapping procedures.
589 2001-03-26 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
591 * NEWS: New section for 0.0.2
593 * configure.in, README, guile-srfi-13.texi: Bumbed version number
596 * Released version 0.0.1.
598 * README: Made procedure list up-to-date.
600 * guile-srfi-13.texi: Fixed typos, completed reference and added
603 * srfi-13.c, srfi-13.scm: Filled in the last missing pieces.
605 2001-03-22 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
607 * Started guile-srfi-13 package. Files are copied from the
608 guile-gdbm and slightly modified.