Changeset 12216 in project


Ignore:
Timestamp:
10/21/08 00:29:49 (8 years ago)
Author:
felix
Message:

small fixes, untested

File:
1 edited

Legend:

Unmodified
Added
Removed
  • doc-indices/grovel

    r2904 r12216  
    11#!/bin/sh
    2 #| ;;; grovel -*- Hen -*-
     2#| ;;; grovel -*- Scheme -*-
    33exec csi -s $0 "$@"
    44|#
    55
    6 (use utils posix)
     6(use utils posix matchable)
    77
    8 (set-sharp-read-syntax!
     8(set-sharp-read-syntax!                 ; we need this to handle egg code that uses the ffi
    99 #\>
    1010 (lambda (p)
     
    1616             (else (loop)) ) ) ) ) )
    1717
    18 (define *ignored* '("comet" "chicken" "doc-indices"))
     18(define *ignored* '("comet"))
    1919(define *top* #f)
    2020
     
    4545                      (read))))
    4646             (unless (eof-object? x)
     47               (let rec ((x x))
    4748               (match x
    48                  (('module (? symbol?) (exports ...))
    49                   (emit exports) )
     49                 (('module (? symbol?) '* . body)
     50                  (for-each rec body))
     51                 (('module (? symbol?) (exports ...) . _)
     52                  (for-each
     53                   (match-lambda
     54                     ((exp . _) (emit (list exp)))
     55                     (exp (emit (list exp))))
     56                   exports))
    5057                 (('declare . decls)
    5158                  (for-each
Note: See TracChangeset for help on using the changeset viewer.