From c2eba976fb4c1da4ce6f57d310b0c76e8ccf2bc3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Oct 2006 04:53:35 +0000
Subject: [PATCH] Add C:<< and C:>>.

---
 v7/src/compiler/machines/C/cout.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/v7/src/compiler/machines/C/cout.scm b/v7/src/compiler/machines/C/cout.scm
index 32179217d..b5e920484 100644
--- 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)
-- 
2.25.1