mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-20 14:19:18 +02:00
16 lines
410 B
Text
16 lines
410 B
Text
|
|
(define-module (srfi 2)
|
|
(export and-let*)
|
|
(import (scheme))
|
|
(body
|
|
(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))))))))
|
|
|