* Added SRFI-8

This commit is contained in:
Abdulaziz Ghuloum 2007-05-11 23:43:36 -04:00
parent 4fba303ef4
commit 94ff7fcc6e
2 changed files with 12 additions and 0 deletions

10
lib/SRFI-8.ss Normal file
View File

@ -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* ...))))))

2
lib/SRFI-8.tests.ss Executable file
View File

@ -0,0 +1,2 @@
#!/usr/bin/env ikarus --r6rs-script
(import (SRFI-8))