1 \ Introduce a dummy console that will eat away all chars and make all
2 \ the components dependent on stdout happy.
5 " devnull-console" device-name
10 : write ( adr len -- actual )
14 : read ( adr len -- actual )
19 " devnull-console" find-alias 0= IF
20 " devnull-console" get-node node>path set-alias
26 : dummy-term-emit drop ;
28 : dummy-term-key? FALSE ;
30 ' dummy-term-emit to emit
31 ' dummy-term-key to key
32 ' dummy-term-key? to key?