2 files changed, 10 insertions(+), 0 deletions(-)

A => tests/receive.scm
A => tests/receive.w
A => tests/receive.scm +5 -0
@@ 0,0 1,5 @@ 
+(import (ice-9 receive) (srfi srfi-1))
+(write
+    (receive (car cdr)
+        (car+cdr '(car . cdr))
+      car))

          
A => tests/receive.w +5 -0
@@ 0,0 1,5 @@ 
+import (ice-9 receive) (srfi srfi-1)
+write 
+    receive : car cdr
+              car+cdr '(car . cdr)
+      . car