diff --git a/lib/SRFI-8.ss b/lib/SRFI-8.ss new file mode 100644 index 0000000..40a66b8 --- /dev/null +++ b/lib/SRFI-8.ss @@ -0,0 +1,10 @@ +(library (SRFI-8) + (export receive) + (import (ikarus)) + ;;; these SRFIs are great for filling your "features" + ;;; page + (define-syntax receive + (syntax-rules () + ((receive formals expression body body* ...) + (call-with-values (lambda () expression) + (lambda formals body body* ...)))))) diff --git a/lib/SRFI-8.tests.ss b/lib/SRFI-8.tests.ss new file mode 100755 index 0000000..4804cab --- /dev/null +++ b/lib/SRFI-8.tests.ss @@ -0,0 +1,2 @@ +#!/usr/bin/env ikarus --r6rs-script +(import (SRFI-8))