new accessors

2008-09-02 13:02:51 -05:00 · 2008-09-02 13:02:51 -05:00 · 09cce11af7
parent 4c2cd48d9a
commit 09cce11af7
1 changed files with 1 additions and 1 deletions
--- a/extra/gesture-logger/gesture-logger.factor
+++ b/extra/gesture-logger/gesture-logger.factor
@ -19,7 +19,7 @@ M: gesture-logger handle-gesture
    t ;

 M: gesture-logger user-input*
-    gesture-logger-stream [
+    stream>> [
        "User input: " write print
    ] with-output-stream* t ;