[math] change alias conventions
This commit is contained in:
parent
5ebe37f0f2
commit
0448e7de75
|
@ -111,7 +111,7 @@
|
||||||
(make-numeric-operator *)
|
(make-numeric-operator *)
|
||||||
(make-numeric-operator /)
|
(make-numeric-operator /)
|
||||||
|
|
||||||
(define-syntax expt: (make-alias 'expt
|
(define-syntax expt: (make-alias #'expt
|
||||||
(lambda (stx) (syntax-parse stx
|
(lambda (stx) (syntax-parse stx
|
||||||
[(_ n1 n2)
|
[(_ n1 n2)
|
||||||
(let ([v1 (stx->num #'n1)]
|
(let ([v1 (stx->num #'n1)]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user