steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

clean up io.serial a bit

db4
Doug Coleman 2008-12-15 09:48:37 -06:00
parent e335059a87
commit b062425935
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/io/serial/serial.factor
View File

@ -10,9 +10,8 @@ TUPLE: serial stream path baud
ERROR: invalid-baud baud ; ERROR: invalid-baud baud ;
M: invalid-baud summary ( invalid-baud -- string ) M: invalid-baud summary ( invalid-baud -- string )
"Baud rate " baud>> number>string
swap baud>> number>string "Baud rate " " not supported" surround ;
" not supported" 3append ;
HOOK: lookup-baud os ( m -- n ) HOOK: lookup-baud os ( m -- n )
HOOK: open-serial os ( serial -- stream ) HOOK: open-serial os ( serial -- stream )