Changeset 12216 in project

Timestamp:

10/21/08 00:29:49 (11 years ago)

Author:

felix

Message:

small fixes, untested

File:

• doc-indices/grovel (modified) (3 diffs)

doc-indices/grovel

@@ -1 +1 @@
 #!/bin/sh
-#| ;;; grovel -*- Hen -*-
+#| ;;; grovel -*- Scheme -*-
 exec csi -s $0 "$@"
 |#
 
-(use utils posix)
+(use utils posix matchable)
 
-(set-sharp-read-syntax! 
+(set-sharp-read-syntax!                 ; we need this to handle egg code that uses the ffi
  #\>
  (lambda (p)
@@ -16 +16 @@
              (else (loop)) ) ) ) ) )
 
-(define *ignored* '("comet" "chicken" "doc-indices"))
+(define *ignored* '("comet"))
 (define *top* #f)
 
@@ -45 +45 @@
                       (read))))
              (unless (eof-object? x)
+               (let rec ((x x))
                (match x
-                 (('module (? symbol?) (exports ...))
-                  (emit exports) )
+                 (('module (? symbol?) '* . body)
+                  (for-each rec body))
+                 (('module (? symbol?) (exports ...) . _)
+                  (for-each
+                   (match-lambda
+                     ((exp . _) (emit (list exp)))
+                     (exp (emit (list exp))))
+                   exports))
                  (('declare . decls)
                   (for-each