Route 477

■ [scheme] 関数のaliasをつくりたい

Rubyでいうと「 alias foo bar」みたいなことがしたくてですね。

よーしパパdefine-syntaxで頑張っちゃうぞ！

(define-syntax define-synonym                                               
  (syntax-rules ()                                                          
    ((_ new old) 
     (define-syntax new                                                     
       (syntax-rules ()
         ((new . args) (old . args)))))))  

(define-synonym foo bar)

と、ここまで書いたところで、単に

(define foo bar)

でいいことに気づいた。

syntax-rulesの無駄遣いｗｗｗ