diff options
| author | Ludovic Court`es | 2006-07-19 12:26:20 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-07-19 12:26:20 +0000 |
| commit | 64f27ff556ad7aab2838a9f4a323fae7fed38ecc (patch) | |
| tree | 00249a359b0108155f59f78dd4595f3af2d90b18 | |
| parent | 745c965ef14a1348fd12c625a0d0ed906073ec93 (diff) | |
| download | skribilo-64f27ff556ad7aab2838a9f4a323fae7fed38ecc.tar.gz skribilo-64f27ff556ad7aab2838a9f4a323fae7fed38ecc.tar.lz skribilo-64f27ff556ad7aab2838a9f4a323fae7fed38ecc.zip | |
Implemented `markup-body-set!'.
* src/guile/skribilo/ast.scm (markup-body-set!): New.
git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-13
| -rw-r--r-- | src/guile/skribilo/ast.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/guile/skribilo/ast.scm b/src/guile/skribilo/ast.scm index 86c6b5c..ee53f30 100644 --- a/src/guile/skribilo/ast.scm +++ b/src/guile/skribilo/ast.scm @@ -1,7 +1,7 @@ ;;; ast.scm -- Skribilo abstract syntax trees. ;;; -;;; Copyright 2003-2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> -;;; Copyright 2005 Ludovic Courtès <ludovic.courtes@laas.fr> +;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> +;;; Copyright 2005, 2006 Ludovic Courtès <ludovic.courtes@laas.fr> ;;; ;;; ;;; This program is free software; you can redistribute it and/or modify @@ -35,7 +35,8 @@ <processor> processor? processor-combinator processor-engine <markup> markup? bind-markup! markup-options is-markup? - markup-markup markup-body markup-ident markup-class + markup-markup markup-body markup-body-set! + markup-ident markup-class find-markups markup-option markup-option-set! markup-option-add! markup-output @@ -216,6 +217,9 @@ (define (markup? obj) (is-a? obj <markup>)) (define (markup-options obj) (slot-ref obj 'options)) (define markup-body node-body) +(define (markup-body-set! m body) + (slot-set! m 'resolved? #f) + (slot-set! m 'body body)) (define (markup-option m opt) (if (markup? m) |