質問編集履歴
1
修正
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
|
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
|
87
|
+
((eq? m 'reset) reset)
|
88
88
|
|
89
89
|
(else (exec m))))
|
90
90
|
|