scheme 中的宏使用

#lang scheme ( define-syntax my-when     ( syntax-rules ()       [ ( _ pred body ... )         ( if pred ( begin body ... ) ( void ) ) ] ) ) ( my-when    ( = 2 1 )   ( display 1 )   ( display 2 ) ) (

>>阅读原文<<