aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court`es2006-07-19 12:26:20 +0000
committerLudovic Court`es2006-07-19 12:26:20 +0000
commit64f27ff556ad7aab2838a9f4a323fae7fed38ecc (patch)
tree00249a359b0108155f59f78dd4595f3af2d90b18
parent745c965ef14a1348fd12c625a0d0ed906073ec93 (diff)
downloadskribilo-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.scm10
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)