From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Oct 2006 04:53:35 +0000 (+0000)
Subject: Add C:<< and C:>>.
X-Git-Tag: 20090517-FFI~907
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c2eba976fb4c1da4ce6f57d310b0c76e8ccf2bc3;p=mit-scheme.git

Add C:<< and C:>>.
---

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)