suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove unused definition and clean up exports.

Browse Source
This commit is contained in:
Eric Dobson 2013-05-25 11:42:36 -07:00
parent 1c4a6546d0
commit 0552411432
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/typed-racket/utils/syntax-traversal.rkt
View File

@ -2,16 +2,10 @@
;; from Eli
(provide (all-defined-out))
(provide look-for-in-orig)
;; -------------------- utilities
(define (pull-from-syntax stx . locs)
(let loop ([stx stx] [locs locs])
(if (null? locs)
stx
(loop (list-ref (syntax->list stx) (car locs)) (cdr locs)))))
(define (syntax-loc stx) (list (syntax-source stx) (syntax-position stx) (syntax-span stx)))
;; -------------------- the real stuff