Compare commits
2 Commits
Author | SHA1 | Date | |
---|---|---|---|
![]() |
cc1dbf6d7f | ||
![]() |
a7b932630a |
2
.gitignore
vendored
2
.gitignore
vendored
|
@ -1,5 +1,7 @@
|
|||
# Racket compiled files
|
||||
compiled/
|
||||
# Generated documentation
|
||||
/doc/
|
||||
|
||||
# common backups, autosaves, lock files, OS meta-files
|
||||
*~
|
||||
|
|
|
@ -25,7 +25,9 @@
|
|||
(intro (thunk))))
|
||||
|
||||
(define (this-read-syntax [src #f] [in (current-input-port)])
|
||||
(quasisyntax/loc src
|
||||
#,(compile-program
|
||||
(parameterize ([current-source-name src])
|
||||
(parse-program in))))))
|
||||
((make-syntax-delta-introducer #'here #f)
|
||||
(quasisyntax/loc src
|
||||
#,(compile-program
|
||||
(parameterize ([current-source-name src])
|
||||
(parse-program in))))
|
||||
'remove)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user