diff options
| author | Ludovic Courtes | 2006-01-17 22:51:36 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-01-17 22:51:36 +0000 |
| commit | ff5f019ffd54745954d8a6ed094f0fd10ac0e467 (patch) | |
| tree | 93535db7d12eae5cb86a7c1af64bafe07f5d3275 /src/guile | |
| parent | 36a235bc558321245eb410633c314b03e5bb9f81 (diff) | |
| parent | 46c709dc1f242fa680d4425da4dfc9314686e9cc (diff) | |
| download | skribilo-ff5f019ffd54745954d8a6ed094f0fd10ac0e467.tar.gz skribilo-ff5f019ffd54745954d8a6ed094f0fd10ac0e467.tar.lz skribilo-ff5f019ffd54745954d8a6ed094f0fd10ac0e467.zip | |
Towards a self-hosted user manual.
* doc/skr/api.skr: Use `(skribilo reader)' and `(skribilo utils syntax)'.
(api-search-definition): Added a SKRIBE-SOURCE? argument.
Determine the appropriate reader based on its value.
(keyword->symbol): Removed.
(define-markup?): Fixed.
(make-engine?): Fixed (but unverified).
(make-engine-custom): Likewise.
(sym/kw?): New.
(define-markup-formals): Fixed.
(define-markup-options): Likewise.
(define-markup-rest): Likewise.
(doc-markup): Added a SKRIBE-SOURCE? argument.
(doc-engine): Likewise.
* doc/user/*.skb: Updated the `:source' arguments to `doc-markup' and
`doc-engine'.
* src/guile/skribilo/utils/compat.scm (hashtable-update!): Fixed
according to the Bigloo manual.
git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-29
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/utils/compat.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/guile/skribilo/utils/compat.scm b/src/guile/skribilo/utils/compat.scm index 45abd10..c187975 100644 --- a/src/guile/skribilo/utils/compat.scm +++ b/src/guile/skribilo/utils/compat.scm @@ -206,7 +206,13 @@ (define-public hashtable? hash-table?) (define-public hashtable-get (lambda (h k) (hash-ref h k #f))) (define-public hashtable-put! hash-set!) -(define-public hashtable-update! hash-set!) +(define-public (hashtable-update! table key update-proc init-value) + ;; This is a Bigloo-specific API. + (let ((handle (hash-get-handle table key))) + (if (not handle) + (hash-set! table key init-value) + (set-cdr! handle (update-proc (cdr handle)))))) + (define-public hashtable->list (lambda (h) (map cdr (hash-map->list cons h)))) |