From 446f8910f3784b5d3220fac377865a9e7fa24779 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 9 Jul 2012 20:23:16 +0900 Subject: [PATCH] fixing source line checks in chibi-doc --- tools/chibi-doc | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/tools/chibi-doc b/tools/chibi-doc index 216cec10..8f3a6bbc 100755 --- a/tools/chibi-doc +++ b/tools/chibi-doc @@ -639,8 +639,12 @@ div#footer {padding-bottom: 50px} (define (object-source x) (cond ((opcode? x) #f) - ((bytecode? x) (bytecode-source x)) - ((procedure? x) (bytecode-source (procedure-code x))) + ((bytecode? x) + (let ((src (bytecode-source x))) + (if (and (vector? src) (positive? (vector-length src))) + (vector-ref src 0) + src))) + ((procedure? x) (object-source (procedure-code x))) ((macro? x) (macro-source x)) (else #f)))