Changeset 18914 in project for release/4/combinators/trunk/stack-combinators.scm

Timestamp:

07/21/10 20:38:21 (11 years ago)

Author:

Kon Lovett

Message:

Added section.

File:

• release/4/combinators/trunk/stack-combinators.scm (modified) (2 diffs)

release/4/combinators/trunk/stack-combinators.scm

@@ -3 +3 @@
 ;;;; Portions from a 'comp.lang.scheme' posting by "wayo.cavazos@gmail.com"
 
-(declare
-  (usual-integrations)
-  (generic)
-  (inline)
-  (local)
-  (no-procedure-checks) )
+(module stack-combinators
 
-(module stack-combinators (;export
-  uni uni2 uni3 #;uni@
-  bi bi2 bi3 bi@
-  tri tri2 tri3 tri@
-  dip
-  dup dupd
-  swap
-  drop drop/2)
+  (;export
+    uni uni2 uni3 uni@
+    bi bi2 bi3 bi@
+    tri tri2 tri3 tri@
+    dip
+    dup dupd
+    swap
+    drop drop/2)
   
-(import scheme chicken)
+  (import scheme chicken)
 
 ;;
@@ -44 +39 @@
     (()           (lambda (c) (uni3 c)))))
 
-#; ;UNUSED
-(define uni@
+(define uni@    ; for completeness only
   (case-lambda
     ((x f c)  (c (f x)))