2010-03-22から1日間の記事一覧
(use gauche.parameter) (define *depth* (make-parameter 0)) (define *origin-fun* (make-parameter #f)) (define-macro (trace f) `(begin (*origin-fun* ,f) (set! ,f (lambda args (let* ((d (*depth*)) (padding (make-string d #\space))) (print pad…