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

Even better way of detecting the syntax error from the previous commit

This commit is contained in:
Tony Garnock-Jones 2016-03-15 16:12:02 -04:00
parent 3c3d8f2aaf
commit 8b1d04ab05
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
prospect/actor.rkt
View File

@ -423,7 +423,7 @@
(pattern (~seq) #:attr Pred #'#t))
(define-splicing-syntax-class meta-level
(pattern (~seq #:meta-level level))
(pattern (~seq #:meta-level level:integer))
(pattern (~seq) #:attr level #'0))
(define (expand-state linkage-kind init-actions binding-names binding-inits ongoings edges)
@ -530,13 +530,9 @@
[_ #f]))))))
(define (prepend-at-meta-stx context-stx stx level)
(cond
[(not (number? level))
(raise-syntax-error #f "#:meta-level must be a literal constant number" context-stx)]
[(zero? level)
stx]
[else
#`(at-meta #,(prepend-at-meta-stx context-stx stx (- level 1)))]))
(if (zero? level)
stx
#`(at-meta #,(prepend-at-meta-stx context-stx stx (- level 1)))))
(define (analyze-message-subscription! endpoint-index outer-expr-stx P-stx I-stxs L-stx)
(define-values (proj pat match-pat bindings _instantiated)