syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

undo my stupid macrology

This commit is contained in:
Sam Caldwell 2016-02-27 21:13:37 -05:00
parent 874ba60f06
commit cd492df0c4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
prospect/actor.rkt
View File

@ -728,9 +728,9 @@
(and (identifier? stx) (and (identifier? stx)
(char=? (string-ref (symbol->string (syntax-e stx)) 0) #\$))) (char=? (string-ref (symbol->string (syntax-e stx)) 0) #\$)))
(define (undollar stx ctx) (define (undollar stx)
(and (dollar-id? stx) (and (dollar-id? stx)
(datum->syntax ctx (string->symbol (substring (symbol->string (syntax-e stx)) 1))))) (datum->syntax stx (string->symbol (substring (symbol->string (syntax-e stx)) 1)))))
;; Syntax -> (Values Projection AssertionSetPattern MatchPattern (ListOf Identifier)) ;; Syntax -> (Values Projection AssertionSetPattern MatchPattern (ListOf Identifier))
(define (analyze-pattern outer-expr-stx pat-stx0) (define (analyze-pattern outer-expr-stx pat-stx0)
@ -744,7 +744,7 @@
[$v [$v
(dollar-id? #'$v) (dollar-id? #'$v)
(with-syntax [(v (undollar #'$v outer-expr-stx))] (with-syntax [(v (undollar #'$v))]
(values #'(?!) (values #'(?!)
#'? #'?
#'v #'v