[scheme][Gauche]slibのtraceを使ったデバッグ

 

Gauche(Scheme) でデバッグをする4つの方法

↑こんな記事があったのでやってみたらすごく便利。trace。

 

(define (fact n)            
  (if (zero? n)             
      1             
      (* n (fact (- n 1)))))  ;; => fact             
(use slib) ;; => #<undef>            
(require 'trace) ;; => #t             
(trace fact) ;; => #<closure (debug:trace-procedure debug:trace-procedure)>
 
(fact 5)

 

実行結果

 

gosh> CALL fact 5            
CALL fact 4             
  CALL fact 3             
   CALL fact 2             
    CALL fact 1             
    RETN fact 1             
   RETN fact 2             
  RETN fact 6             
RETN fact 24             
RETN fact 120             
120             

追記

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