serial error

(serial-error)

serial-error returns #t if a serial error has occurred.

Example

Example 1: Sending function from apps/SerialDemo/main.scm

(let loop ((m (u8vector->list (string->u8vector buf)))(err #f))
  (if err 
   (begin (set! serialport #f) (glgui-widget-set! gui open-button 'color Red))
   (if (fx> (length m) 0) (begin
     (serial-writechar serialport (car m))
     (loop (cdr m) (or (serial-error) (serial-timeout)))
    ))
  ))