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

View File

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