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

Replaced uses of quote-srcloc with quote-syntax.

Browse Source 
svn: r17757

original commit: 7f58c26709c9a97623f50ec812727daa080b155b
This commit is contained in:
Carl Eastlund 2010-01-19 23:25:07 +00:00
parent d7fe71a64b
commit e9503a6993
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/typed-scheme/utils/require-contract.ss
View File

@ -1,7 +1,6 @@
#lang scheme/base
(require scheme/contract
unstable/location
(for-syntax scheme/base
syntax/kerncase
syntax/parse
@ -46,7 +45,7 @@
'(interface for #,(syntax->datum #'nm))
'never-happen
(quote nm)
(quote-srcloc nm))))]
(quote-syntax nm))))]
[(require/contract (orig-nm:renameable nm:id) cnt lib)
#`(begin (require (only-in lib [orig-nm orig-nm.r]))
(define-ignored nm
@ -55,4 +54,4 @@
'#,(syntax->datum #'nm)
'never-happen
(quote nm)
(quote-srcloc nm))))]))
(quote-syntax nm))))]))