nlopess Thu Jul 14 17:13:12 2005 EDT
Modified files:
/phpdoc/dsssl html-common.dsl
Log:
fix warning when doing 'make html'
http://cvs.php.net/diff.php/phpdoc/dsssl/html-common.dsl?r1=1.18&r2=1.19&ty=u
Index: phpdoc/dsssl/html-common.dsl
diff -u phpdoc/dsssl/html-common.dsl:1.18 phpdoc/dsssl/html-common.dsl:1.19
--- phpdoc/dsssl/html-common.dsl:1.18 Sun Apr 10 12:19:55 2005
+++ phpdoc/dsssl/html-common.dsl Thu Jul 14 17:13:08 2005
@@ -1,6 +1,6 @@
;; -*- Scheme -*-
;;
-;; $Id: html-common.dsl,v 1.18 2005/04/10 16:19:55 goba Exp $
+;; $Id: html-common.dsl,v 1.19 2005/07/14 21:13:08 nlopess Exp $
;;
;; Returns the depth of the auto-generated TOC (table of
@@ -304,9 +304,10 @@
;; on pcre reference pages (these are masked as function pages, but are
;; not function pages themselfs)
(element (refnamediv refname)
- (let ((refid (attribute-string (normalize "id") (parent (parent
(current-node))))))
+ (let* ((refid (attribute-string (normalize "id") (parent (parent
(current-node)))))
+ (refid-length (if (string? refid) (string-length refid) 0)))
(if (not (string=?
- (substring refid 0 (if (<= (string-length refid) 14) (string-length
refid) 14))
+ (substring refid 0 (if (<= refid-length 14) refid-length 14))
"reference.pcre"))
(make sequence
(make element gi: "P"
