6cdh

#lang racket

(require syntax/modread
         racket/cmdline
         drracket/check-syntax
         syntax/parse)

(collect-garbage)

(define collector%

6cdh

#lang racket

(require syntax/modread
         racket/cmdline
         drracket/check-syntax)

(define filename (command-line #:args (filename) filename))

(define src (path->complete-path (string->path filename)))
(define-values (src-dir _1 _2) (split-path src))

6cdh

#lang racket

; some code copied from https://github.com/greghendershott/racket-mode/blob/master/racket/keywords.rkt

(define (exports mod #:only-stx? [only-stx? #f])
  (define (ids phases)
    (for*/list ([phase phases]
                [item (cdr phase)])
      (car item)))