2006-11-21から1日間の記事一覧

PLT風の構造体

が便利すぎるのだが、DrScheme風のpretty-printerが欲しくなったので定義。 (define-macro (define-plt-struct name fields) (let* ((constructor (string->symbol #`"make-,|name|")) (predicate (string->symbol #`",|name|?")) (acc&mods (map (lambda (f…

ガスが止まりました.