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

Re-enable unexpanded syntax printing. Merge to release.

Browse Source 
svn: r17815
This commit is contained in:
Sam Tobin-Hochstadt 2010-01-25 15:44:48 +00:00
parent 2cd7fe5499
commit 674e40a212
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/typed-scheme/utils/syntax-traversal.ss
View File

@ -45,9 +45,7 @@
;; Look for (the outermost) syntax in `orig' that has the same ;; Look for (the outermost) syntax in `orig' that has the same
;; location as `lookfor' which is coming from the expanded `orig', ;; location as `lookfor' which is coming from the expanded `orig',
;; given in `expanded'. ;; given in `expanded'.
(define (look-for-in-orig orig expanded lookfor) lookfor) (define (look-for-in-orig orig expanded lookfor)
#|
(define src (syntax-source orig)) (define src (syntax-source orig))
;(printf "orig : ~a~n" (unwind orig)) ;(printf "orig : ~a~n" (unwind orig))
;(printf "expanded : ~a~n" expanded) ;(printf "expanded : ~a~n" expanded)
@ -73,7 +71,4 @@
enclosing) enclosing)
#;(printf "chose branch two ~a~n" enclosing)))))) #;(printf "chose branch two ~a~n" enclosing))))))
;(trace look-for-in-orig)
|#