From 94ff7fcc6e782a4378cf90b9353d9b0e8ff14e65 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Fri, 11 May 2007 23:43:36 -0400 Subject: [PATCH] * Added SRFI-8 --- lib/SRFI-8.ss | 10 ++++++++++ lib/SRFI-8.tests.ss | 2 ++ 2 files changed, 12 insertions(+) create mode 100644 lib/SRFI-8.ss create mode 100755 lib/SRFI-8.tests.ss 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))