質問編集履歴

1

修正

2017/10/01 07:19

投稿

dialbird
dialbird

スコア379

test CHANGED
File without changes
test CHANGED
@@ -52,7 +52,7 @@
52
52
 
53
53
  ((eq? x 'how-many-calls?) cnt)
54
54
 
55
- ((eq? x 'reset-count) (set! cnt 0))
55
+ ((eq? x 'reset) (set! cnt 0))
56
56
 
57
57
  (else (begin (set! cnt (+ cnt 1))
58
58
 
@@ -84,7 +84,7 @@
84
84
 
85
85
  ((eq? m 'how-many-calls?) cnt)
86
86
 
87
- ((eq? m 'reset-count) reset)
87
+ ((eq? m 'reset) reset)
88
88
 
89
89
  (else (exec m))))
90
90