;; platform specific stuff
(module platform mzscheme

  (require  (lib "process.ss")
            "primitive.ss")

  (provide (all-defined)) ;; util

  (define (serial-windows serialport baudrate)
    (system
     (format "mode ~a: baud=~a data=8 rts=off"
             baudrate serialport)))
  
  (define (serial-linux serialport baudrate)
    (system
     (format "stty ~a min 1 -echo ixon -icanon raw -F ~a"
             baudrate serialport)))

  (define serialconfig serial-linux)

  
  )