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

fix include/reader

Browse Source 
svn: r8265
This commit is contained in:
Matthew Flatt 2008-01-08 22:16:01 +00:00
parent b333628a39
commit 6352736822
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scheme/include.ss
View File

@ -107,13 +107,13 @@
(with-syntax ([_stx stx])
(syntax/loc stx (do-include _stx _stx _stx fn #f)))]))
(define (include-at/relative-to stx)
(define-syntax (include-at/relative-to stx)
(syntax-case stx ()
[(_ ctx loc fn)
(with-syntax ([_stx stx])
(syntax/loc stx (do-include _stx ctx loc fn #f)))]))
(define (include/reader stx)
(define-syntax (include/reader stx)
(syntax-case stx ()
[(_ fn reader)
;; Expand to do-include:
@ -126,7 +126,7 @@
(make-reader reader)))])
the-reader))))]))
(define (include-at/relative-to/reader stx)
(define-syntax (include-at/relative-to/reader stx)
(syntax-case stx ()
[(_ ctx loc fn reader)
(with-syntax ([_stx stx])