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

Adding defs to precedence

Browse Source
This commit is contained in:
Jay McCarthy 2015-11-18 11:51:01 -05:00
parent 4b1a4d96c8
commit be38910fa1
1 changed files with 1 additions and 2 deletions

3
remix/stx0.rkt
View File

@ -80,7 +80,7 @@
'+ 40 '- 40 '+ 40 '- 40
'< 60 '<= 60 '< 60 '<= 60
'> 60 '>= 60 '> 60 '>= 60
'= 70)) '= 70 '≙ 70 '≙* 70))
(define (shunting-yard:precendence op) (define (shunting-yard:precendence op)
(define v (syntax-local-value op (λ () #f))) (define v (syntax-local-value op (λ () #f)))
(or (and v (binary-operator? v) (binary-operator-precedence v)) (or (and v (binary-operator? v) (binary-operator-precedence v))
@ -194,7 +194,6 @@
(remix-cond . more))))])) (remix-cond . more))))]))
(provide def def* (provide def def*
;; xxx add these into the default precedence system
(rename-out [def ≙] (rename-out [def ≙]
[def* ≙*]) [def* ≙*])
(rename-out [remix-λ λ] (rename-out [remix-λ λ]