14 lines
247 B
Scheme
14 lines
247 B
Scheme
#lang scheme/base
|
|
|
|
(require scheme/match (for-syntax scheme/base))
|
|
|
|
(provide ==)
|
|
|
|
(define-match-expander
|
|
==
|
|
(lambda (stx)
|
|
(syntax-case stx ()
|
|
[(_ val comp)
|
|
#'(? (lambda (x) (comp val x)))]
|
|
[(_ val) #'(== val equal?)])))
|