Add C:<< and C:>>.

diff --git a/v7/src/compiler/machines/C/cout.scm b/v7/src/compiler/machines/C/cout.scm
index 32179217d9a1c14d6779aa3c520b841d4313020f..b5e9204841fa0c5a0b1841d9b81f1a90052cad2a 100644 (file)
--- a/v7/src/compiler/machines/C/cout.scm
+++ b/v7/src/compiler/machines/C/cout.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: cout.scm,v 1.27 2006/10/05 19:14:39 cph Exp $
+$Id: cout.scm,v 1.28 2006/10/06 04:53:35 cph Exp $
 
 Copyright 1993,1998,2006 Massachusetts Institute of Technology
 
@@ -1474,6 +1474,12 @@ USA.
 (define (c:/ a b)
   (c:binary-infix "/" a b))
 
+(define (c:<< a b)
+  (c:binary-infix "<<" a b))
+
+(define (c:>> a b)
+  (c:binary-infix ">>" a b))
+
 (define (c:ubinary op a b)
   (if (default-object? b)
       (c:unary op a)