From c5d565931c4823dc8f62fffcb65aecfec516f7b9 Mon Sep 17 00:00:00 2001 From: Mike Hommey Date: Tue, 31 Jan 2006 19:25:18 +0100 Subject: Removing tests and results --- result/DocBook/example.example.1.xml | 14 -------------- 1 file changed, 14 deletions(-) delete mode 100644 result/DocBook/example.example.1.xml (limited to 'result/DocBook/example.example.1.xml') diff --git a/result/DocBook/example.example.1.xml b/result/DocBook/example.example.1.xml deleted file mode 100644 index 89343f0..0000000 --- a/result/DocBook/example.example.1.xml +++ /dev/null @@ -1,14 +0,0 @@ - - -A DSSSL Function -(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)))))) - -- cgit v1.2.3