Language change: tuple slot setter words with stack effect ( value object -- ) are...

[factor.git] / extra / io / serial / unix / unix.factor

diff --git a/extra/io/serial/unix/unix.factor b/extra/io/serial/unix/unix.factor
index fc613da4238164f6451c39c6488dfc7333459a0b..f2dec1972e66c48e3b8369a3a53b56b95dffd6d8 100644 (file)
--- a/extra/io/serial/unix/unix.factor
+++ b/extra/io/serial/unix/unix.factor
@@ -47,14 +47,14 @@ M: unix open-serial ( serial -- serial' )
 : configure-termios ( serial -- )
     dup termios>>
     {
-        [ [ iflag>> ] dip over [ (>>iflag) ] [ 2drop ] if ]
-        [ [ oflag>> ] dip over [ (>>oflag) ] [ 2drop ] if ]
+        [ [ iflag>> ] dip over [ iflag<< ] [ 2drop ] if ]
+        [ [ oflag>> ] dip over [ oflag<< ] [ 2drop ] if ]
         [
             [
                 [ cflag>> 0 or ] [ baud>> lookup-baud ] bi bitor
-            ] dip (>>cflag)
+            ] dip cflag<<
         ]
-        [ [ lflag>> ] dip over [ (>>lflag) ] [ 2drop ] if ]
+        [ [ lflag>> ] dip over [ lflag<< ] [ 2drop ] if ]
     } 2cleave ;
 
 : tciflush ( serial -- )