diff options
| author | Ludovic Courtes | 2005-07-02 02:04:46 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2005-07-02 02:04:46 +0000 |
| commit | 2d740bec3cc50480980d8aae3a06e27a5f0649e5 (patch) | |
| tree | 8a19b85eed59cd9902c1dc81fc7b6180ff65ef45 /src/guile/skribilo/lib.scm | |
| parent | efea4dc93f2565555e47de0bfd027614a9c8674d (diff) | |
| download | skribilo-2d740bec3cc50480980d8aae3a06e27a5f0649e5.tar.gz skribilo-2d740bec3cc50480980d8aae3a06e27a5f0649e5.tar.lz skribilo-2d740bec3cc50480980d8aae3a06e27a5f0649e5.zip | |
Started relying on the per-module reader; first doc produced ever!
First document compiled by Skribilo to HTML!
* src/guile/skribilo/module.scm (define-skribe-module): Use the
`#:reader' option of `define-module' (not yet integrated in Guile 1.7).
Plus lots of other things...
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-3
Diffstat (limited to 'src/guile/skribilo/lib.scm')
| -rw-r--r-- | src/guile/skribilo/lib.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/guile/skribilo/lib.scm b/src/guile/skribilo/lib.scm index bb41597..ef8ef8d 100644 --- a/src/guile/skribilo/lib.scm +++ b/src/guile/skribilo/lib.scm @@ -58,6 +58,7 @@ hashtable-get hashtable-put! hashtable-update! hashtable->list + skribe-read find-runtime-type) :export-syntax (new define-markup define-simple-markup @@ -68,6 +69,8 @@ :use-module (skribilo config) :use-module (skribilo types) + :use-module (skribilo reader) + :use-module (skribilo vars) :use-module (srfi srfi-1) :use-module (ice-9 optargs)) @@ -105,7 +108,7 @@ (let ((name (car bindings)) (opts (cdr bindings))) - `(define* ,(cons name (fix-rest-arg opts)) ,@body))) + `(define*-public ,(cons name (fix-rest-arg opts)) ,@body))) ;;; @@ -352,6 +355,11 @@ ;;; Various things. ;;; +(define %skribe-reader (make-reader 'skribe)) + +(define* (skribe-read #:optional (port (current-input-port))) + (%skribe-reader port)) + (define (%procedure-arity proc) (car (procedure-property proc 'arity))) |