<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"> <HTML ><HEAD ><TITLE >ifollow</TITLE ><META NAME="GENERATOR" CONTENT="Modular DocBook HTML Stylesheet Version 1.79"><LINK REL="HOME" TITLE="DSSSL Library Reference" HREF="index.html"><LINK REL="UP" TITLE="ISO/IEC 10179" HREF="r49.htm"><LINK REL="PREVIOUS" TITLE="ipreced" HREF="ipreced.html"><LINK REL="NEXT" TITLE="siblings" HREF="siblings.html"></HEAD ><BODY CLASS="REFENTRY" BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#840084" ALINK="#0000FF" ><DIV CLASS="NAVHEADER" ><TABLE SUMMARY="Header navigation table" WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0" ><TR ><TH COLSPAN="3" ALIGN="center" >DSSSL Library Reference: Part of the Modular DocBook Stylesheet distribution</TH ></TR ><TR ><TD WIDTH="10%" ALIGN="left" VALIGN="bottom" ><A HREF="ipreced.html" ACCESSKEY="P" >Prev</A ></TD ><TD WIDTH="80%" ALIGN="center" VALIGN="bottom" ></TD ><TD WIDTH="10%" ALIGN="right" VALIGN="bottom" ><A HREF="siblings.html" ACCESSKEY="N" >Next</A ></TD ></TR ></TABLE ><HR ALIGN="LEFT" WIDTH="100%"></DIV ><H1 ><A NAME="IFOLLOW" ></A >ifollow</H1 ><DIV CLASS="REFNAMEDIV" ><A NAME="AEN153" ></A ><H2 >Name</H2 >ifollow -- Implements ifollow as per ISO/IEC 10179:1996</DIV ><DIV CLASS="REFSYNOPSISDIV" ><A NAME="AEN156" ></A ><H2 >Synopsis</H2 ><PRE CLASS="SYNOPSIS" >(ifollow nl)</PRE ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN159" ></A ><H2 >Description</H2 ><P >Implements <TT CLASS="LITERAL" >ifollow</TT > as per ISO/IEC 10179:1996</P ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN163" ></A ><H2 >Author</H2 ><P >From ISO/IEC 10179:1996</P ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN166" ></A ><H2 >Source Code</H2 ><PRE CLASS="PROGRAMLISTING" >(define (ifollow nl) ;; Implements ifollow as per ISO/IEC 10179:1996 (node-list-map (lambda (snl) (let loop ((rest (siblings snl))) (cond ((node-list-empty? rest) (empty-node-list)) ((node-list=? (node-list-first rest) snl) (node-list-first (node-list-rest rest))) (else (loop (node-list-rest rest)))))) nl))</PRE ></DIV ><DIV CLASS="NAVFOOTER" ><HR ALIGN="LEFT" WIDTH="100%"><TABLE SUMMARY="Footer navigation table" WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0" ><TR ><TD WIDTH="33%" ALIGN="left" VALIGN="top" ><A HREF="ipreced.html" ACCESSKEY="P" >Prev</A ></TD ><TD WIDTH="34%" ALIGN="center" VALIGN="top" ><A HREF="index.html" ACCESSKEY="H" >Home</A ></TD ><TD WIDTH="33%" ALIGN="right" VALIGN="top" ><A HREF="siblings.html" ACCESSKEY="N" >Next</A ></TD ></TR ><TR ><TD WIDTH="33%" ALIGN="left" VALIGN="top" >ipreced</TD ><TD WIDTH="34%" ALIGN="center" VALIGN="top" ><A HREF="r49.htm" ACCESSKEY="U" >Up</A ></TD ><TD WIDTH="33%" ALIGN="right" VALIGN="top" >siblings</TD ></TR ></TABLE ></DIV ></BODY ></HTML >