Permalink
Browse files

Fix the definitiion of the tty-baud-rate-flags constants.

  • Loading branch information...
1 parent 9a2ea17 commit 789a5cdd990fa9d3ba03a8157e4ceca6ebf62526 @roderyc roderyc committed Aug 14, 2011
Showing with 18 additions and 18 deletions.
  1. +18 −18 scheme/tty-consts.scm
View
36 scheme/tty-consts.scm
@@ -157,24 +157,24 @@
;;; themselves.
(define-constance tty-baud-rate-flags
(termios.h)
- (ttyb/0 B0)
- (ttyb/50 B50)
- (ttyb/75 B75)
- (ttyb/110 B110)
- (ttyb/134 B134)
- (ttyb/150 B150)
- (ttyb/200 B200)
- (ttyb/300 B300)
- (ttyb/600 B600)
- (ttyb/1200 B1200)
- (ttyb/1800 B1800)
- (ttyb/2400 B2400)
- (ttyb/4800 B4800)
- (ttyb/9600 B9600)
- (ttyb/19200 B19200)
- (ttyb/38400 B38400)
- (ttyb/exta EXTA)
- (ttyb/extb EXTB))
+ ((ttyb/0 B0)
+ (ttyb/50 B50)
+ (ttyb/75 B75)
+ (ttyb/110 B110)
+ (ttyb/134 B134)
+ (ttyb/150 B150)
+ (ttyb/200 B200)
+ (ttyb/300 B300)
+ (ttyb/600 B600)
+ (ttyb/1200 B1200)
+ (ttyb/1800 B1800)
+ (ttyb/2400 B2400)
+ (ttyb/4800 B4800)
+ (ttyb/9600 B9600)
+ (ttyb/19200 B19200)
+ (ttyb/38400 B38400)
+ (ttyb/exta EXTA)
+ (ttyb/extb EXTB)))
;;; Vector of (code . speed) pairs.
(define baud-rates '#((ttyb/0 . 0) (ttyb/50 . 50) (ttyb/75 . 75)

0 comments on commit 789a5cd

Please sign in to comment.