Changeset 12216 in project
- Timestamp:
- 10/21/08 00:29:49 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
doc-indices/grovel
r2904 r12216 1 1 #!/bin/sh 2 #| ;;; grovel -*- Hen-*-2 #| ;;; grovel -*- Scheme -*- 3 3 exec csi -s $0 "$@" 4 4 |# 5 5 6 (use utils posix )6 (use utils posix matchable) 7 7 8 (set-sharp-read-syntax! 8 (set-sharp-read-syntax! ; we need this to handle egg code that uses the ffi 9 9 #\> 10 10 (lambda (p) … … 16 16 (else (loop)) ) ) ) ) ) 17 17 18 (define *ignored* '("comet" "chicken" "doc-indices"))18 (define *ignored* '("comet")) 19 19 (define *top* #f) 20 20 … … 45 45 (read)))) 46 46 (unless (eof-object? x) 47 (let rec ((x x)) 47 48 (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)) 50 57 (('declare . decls) 51 58 (for-each
Note: See TracChangeset
for help on using the changeset viewer.