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

more hygiene!

Browse Source
This commit is contained in:
AlexKnauth 2015-04-16 17:36:38 -04:00
parent 44a55391f9
commit 130216c2b8
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
afl/reader.rkt
View File

@ -114,12 +114,17 @@
(parameterize ([current-arg-string arg-str]) (parameterize ([current-arg-string arg-str])
(define (string->id stx . strs) (define (string->id stx . strs)
(datum->syntax stx (string->symbol (apply string-append strs)) stx)) (datum->syntax stx (string->symbol (apply string-append strs)) stx))
(with-syntax ([args (parse-args stx #:arg-str arg-str)] (with-syntax ([lambda ((make-syntax-introducer) #'lambda)]
[define-syntax ((make-syntax-introducer) #'define-syntax)]
[app ((make-syntax-introducer) #'#%app)]
[make-rename-transformer ((make-syntax-introducer) #'make-rename-transformer)]
[syntax2 ((make-syntax-introducer) #'syntax)]
[args (parse-args stx #:arg-str arg-str)]
[% (string->id #'args arg-str)] [% (string->id #'args arg-str)]
[%1 (string->id #'args arg-str "1")] [%1 (string->id #'args arg-str "1")]
[body stx]) [body stx])
#'(lambda args #'(lambda args
(define-syntax % (make-rename-transformer #'%1)) (define-syntax % (app make-rename-transformer (syntax2 %1)))
body)))) body))))
(module+ test (module+ test

3
afl/tests/test-afl-racket.rkt
View File

@ -14,4 +14,7 @@
"I am x") "I am x")
(check-equal? (#λ(begin (set! % "%") %1) "%1") (check-equal? (#λ(begin (set! % "%") %1) "%1")
"%") "%")
(check-equal? (let ([lambda "not lambda"] [define-syntax "not define-syntax"])
(#λ% 3))
3)
) )