From 0dc1c7c23244a23bf3ec9eccac8d1ece7dc1cdd2 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 20 Sep 2016 02:47:51 -0400
Subject: [PATCH] WIP

---
 test-let-values.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/test-let-values.scm b/test-let-values.scm
index bd19ed7d..ec16ddd5 100644
--- a/test-let-values.scm
+++ b/test-let-values.scm
@@ -1,3 +1,22 @@
+;; An alternate test case for SRFI 1 failing to compile:
+;(import (scheme base))
+;
+;(define-syntax :optional
+;  (syntax-rules ()
+;    ((:optional rest default-exp)
+;     (let ((maybe-arg rest))
+;       (cond ((null? maybe-arg) default-exp)
+;             ((null? (cdr maybe-arg)) (car maybe-arg))
+;             (else (error "too many optional arguments" maybe-arg)))))))
+;
+;(define (alist-delete! key alist . maybe-=)
+;  (let ((= (:optional maybe-= equal?)))
+;    (filter! (lambda (elt) (not (= key (car elt)))) alist)))
+;
+;(alist-delete! #f '())
+;;END
+
+
 ;(import (scheme base))
 ;(cond
 ;  (else #t))