diff options
Diffstat (limited to 'result/DocBook/example.example.1')
| -rw-r--r-- | result/DocBook/example.example.1 | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/result/DocBook/example.example.1 b/result/DocBook/example.example.1 deleted file mode 100644 index 89343f0..0000000 --- a/result/DocBook/example.example.1 +++ /dev/null @@ -1,14 +0,0 @@ -<?xml version="1.0"?> -<!DOCTYPE example PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN" "http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd"> -<example><title>A DSSSL Function</title><programlisting>
-(define (node-list-filter-by-gi nodelist gilist)
- ;; Returns the node-list that contains every element of the original
- ;; nodelist whose gi is in gilist
- (let loop ((result (empty-node-list)) (nl nodelist))
- (if (node-list-empty? nl)
- result
- (if (member (gi (node-list-first nl)) gilist)
- (loop (node-list result (node-list-first nl))
- (node-list-rest nl))
- (loop result (node-list-rest nl))))))
-</programlisting></example> |