~ chicken-core (master) 0734bd318ae3d70353fb16c5740d44612e7b493a

commit 0734bd318ae3d70353fb16c5740d44612e7b493a
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jul 21 12:01:05 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jul 21 12:01:05 2010 +0200

    deprecated [left|right]-section

diff --git a/data-structures.scm b/data-structures.scm
index da1e3a2a..5404427d 100644
--- a/data-structures.scm
+++ b/data-structures.scm
@@ -125,12 +125,12 @@ EOF
 
 (define (never? . _) #f)
 
-(define (left-section proc . args)
+(define (left-section proc . args)	;DEPRECATED
   (##sys#check-closure proc 'left-section)
   (lambda xs
     (##sys#apply proc (##sys#append args xs)) ) )
 
-(define right-section
+(define right-section			;DEPRECATED
   (let ([##sys#reverse reverse])
     (lambda (proc . args)
       (##sys#check-closure proc 'right-section)
diff --git a/manual/Unit data-structures b/manual/Unit data-structures
index b6f4e531..217b2857 100644
--- a/manual/Unit data-structures	
+++ b/manual/Unit data-structures	
@@ -608,29 +608,6 @@ A single value version of {{compose}} (slightly faster). {{(o)}} is equivalent
 to {{identity}}.
 
 
-==== left-section
-
-<procedure>(left-section PROC ARG0 ...)</procedure>
-
-Returns a procedure that partially applies some of its arguments starting from the left.
-
-{{PROC}} a procedure.
-
-{{ARG0 ...}} some prefix of the arguments for {{PROC}}.
-
-
-==== right-section
-
-<procedure>(right-section PROC ARG0 ...)</procedure>
-
-Returns a procedure that partially applies some of its arguments starting from the right.
-
-{{PROC}} a procedure.
-
-{{ARG0 ...}} some reversed suffix of the arguments for {{PROC}}.
-
-
-
 === Binary searching