[Scheme][Gauche]デバッグのリーダーマクロ（#?=）

Gaucheユーザーリファレンス 3.4 デバッグ

;; #?= プリントスタブ リーダーマクロ            
(define (fold2 proc init lis)             
  (if (null? lis)             
      init             
      (fold2 proc #?=(proc (car lis) init) #?=(cdr lis)))) 
 
(fold2 (lambda (a b)(+ b 1)) 0 '(1 2 3 4 5)) 
 
;; => #?="(stdin)":4:(proc (car lis) init)            
;; => #?-    1             
;; => #?="(stdin)":4:(cdr lis)             
;; => #?-    (2 3 4 5)             
;; => #?="(stdin)":4:(proc (car lis) init)             
;; => #?-    2             
;; => #?="(stdin)":4:(cdr lis)             
;; => #?-    (3 4 5)             
;; => #?="(stdin)":4:(proc (car lis) init)             
;; => #?-    3             
;; => #?="(stdin)":4:(cdr lis)             
;; => #?-    (4 5)             
;; => #?="(stdin)":4:(proc (car lis) init)             
;; => #?-    4             
;; => #?="(stdin)":4:(cdr lis)             
;; => #?-    (5)             
;; => #?="(stdin)":4:(proc (car lis) init)             
;; => #?-    5             
;; => #?="(stdin)":4:(cdr lis)             
;; => #?-    ()             
;; => 5

追記

• vallog: Scheme マクロのデバッグ4種