Initial file

srfi/2.scm

@@ -0,0 +1,35 @@
+;;;
+;;; husk-scheme
+;;; http://justinethier.github.com/husk-scheme
+;;;
+;;; Implementation of SRFI-2: and-let*
+;;;
+(define-syntax and-let*
+  (syntax-rules ()
+    ; Special case
+    ((and-let* ())
+     #t)
+    ; No CLAWS, just body
+    ((and-let* () body ...)
+     (begin body ...))
+    ; Special cases of below - CLAWS with no body
+    ((and-let* ((var expr)) )
+     (let ((var expr))
+       (and var)))
+    ((and-let* ((expr)))
+     (let ((tmp expr))
+       (and tmp )))
+    ((and-let* (expr))
+     (let ((tmp expr))
+       (and tmp )))
+    ; General case - CLAWS and body
+    ((and-let* ((var expr) . rest) . body)
+     (let ((var expr))
+       (and var (and-let* rest . body))))
+    ((and-let* ((expr) . rest) . body)
+     (let ((tmp expr))
+       (and tmp (and-let* rest . body))))
+    ((and-let* (expr . rest) . body)
+     (let ((tmp expr))
+       (and tmp (and-let* rest . body))))))
+

srfi/2.sld

@@ -0,0 +1,8 @@
+(define-library (2) ; (srfi 2)
+  (import (scheme base))
+  (export
+    and-let*
+  )
+  (include "2.scm")
+  (begin)
+)

srfi/test-2.scm

@@ -0,0 +1,11 @@
+(import (scheme base)
+        (scheme write)
+        (scheme cyclone pretty-print)
+        (2))
+
+(pretty-print `( 
+  ,(and-let* ((x 1) (y 2))
+     (+ x y))
+  ,(and-let* ((x 1) (y 2) (#f))
+     (+ x y))
+))