mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
15 lines
411 B
Scheme
15 lines
411 B
Scheme
|
|
(define-library (srfi 2)
|
|
(export and-let*)
|
|
(import (scheme))
|
|
(begin
|
|
(define-syntax and-let*
|
|
(syntax-rules ()
|
|
((and-let* () . body)
|
|
(begin . 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))))))))
|