-MEMO: stream-wrapper ( -- wrapper )\r
- {\r
- { IStream {\r
- [ IStream-read ]\r
- [ IStream-write ]\r
- [ IStream-seek ]\r
- [ IStream-set-size ]\r
- [ IStream-copy-to ]\r
- [ IStream-commit ]\r
- [ IStream-revert ]\r
- [ IStream-lock-region ]\r
- [ IStream-unlock-region ]\r
- [ IStream-stat ]\r
- [ IStream-clone ]\r
- } }\r
- } <com-wrapper> ;\r
+USE: tools.annotations\r
+: watch-istream-callbacks ( -- )\r
+ \ IStream-read watch\r
+ \ IStream-write watch\r
+ \ IStream-seek watch\r
+ \ IStream-set-size watch\r
+ \ IStream-copy-to watch\r
+ \ IStream-commit watch\r
+ \ IStream-revert watch\r
+ \ IStream-lock-region watch\r
+ \ IStream-unlock-region watch\r
+ \ IStream-stat watch\r
+ \ IStream-clone watch ;\r
+\r
+CONSTANT: stream-wrapper\r
+ $[\r
+ {\r
+ { IStream {\r
+ [ IStream-read ]\r
+ [ IStream-write ]\r
+ [ IStream-seek ]\r
+ [ IStream-set-size ]\r
+ [ IStream-copy-to ]\r
+ [ IStream-commit ]\r
+ [ IStream-revert ]\r
+ [ IStream-lock-region ]\r
+ [ IStream-unlock-region ]\r
+ [ IStream-stat ]\r
+ [ IStream-clone ]\r
+ } }\r
+ } <com-wrapper>\r
+ ]\r